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From 

the Editor 


Over the past few years, I've spent a lot of time studying and writing C++ code. 
Some of the characterizations of the language and object-oriented programming in 
general are just plain goofy. My favorite hyperbole, which appears like clockwork 
every month in one trade magazine or another, is that object-oriented programming 
causes reusability. Here's a typical quote: “Write a list object once, and every 
developer who needs a list can use it.” Wrong! This kind of claim comes from the 
same people who are puzzled and upset that standard C++ classes have not swept 
the nation, banishing all kinds of wheel-reinventing. Try a little mental experiment 
with me to see the problem. 

Suppose that you intend to write the one-and-only C++ list class for the world. 
Programmer A needs it to contain more than 64Kb items on a PC. Fair enough, so 
you change it to use linked lists rather than arrays internally. Programmer B needs 
to iterate through the list while also deleting items from it. You didn't think of that, 
but you fix your iterator so that it does not crash if the list item it currently refers to 
gets deleted. Programmer C needs to use your list class in a multithreaded environ¬ 
ment. Well, you didn't worry about writing reentrant code initially, but you manage 
to go back and remove dependencies on static data and, for good measure, you 
even change the code to synchronize access to critical sections of code. Whew! 
Writing the one-and-only C++ list class was a lot more work than it initially ap¬ 
peared, but you’ve finally done it! Unfortunately, Programmer D needs a list class for 
a program that runs in the ROM chip in a VCR - the only requirement is that it fit in 
256 bytes of memory! 

You have been handed conflicting requirements, even though each programmer 
needs "just” a list class. Even with something so simple as a list class, no single 
implementation fits all applications. As you construct more complex classes, the 
problem grows. Are you going to write the one-and-only string class for C++? Make 
sure it is compatible with whatever memory management scheme I might use in 
the rest of my program, be it garbage collection, heap allocation, or a simple 
mark/release scheme. The only way you can write a string class that satisfies all 
reasonable requirements is to limit the requirements that your class users can 
make, most notably, any requirement of time or space efficiency. 

The idea that a language feature results in reusability is appealing but misguided. 
Better tools make better designs possible, but they do not cause them. Reusable 
software is software with more information content than non-reusable software. 
That information can only come out of the head of a programmer, a programmer 
who is making decisions based on a limited set of applications (code is much less 
likely to be reusable outside of situations the designer envisioned) and experience 
with similar problems. I guess it is just human nature to hope for some easy solu¬ 
tion to complex problems, but the truth is, however imprecise and imperfect it may 
be, we have met the only solution, and he is us. 

Ron Burk 

Editor 

CIS: 70302,2566 
BIX: rlburk 

Internet: ronb@rdpub.com ("... !uunet!rdpub!ronb") 
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Inside Windows NT: 

The Win32 Subsystem 


Helen K. Custer 



This article was prepared by the Windows/DOS 
Developer’s Journal editorial staff and Helen Custer, and is 
largely based on her forthcoming book Inside Windows NT, 
which will be available from Microsoft Press in late 1992. 
Though this article reflects the current state of Windows NT, 
no part of it should be construed as a commitment on the 
part of Microsoft Corporation. 

As last month's article (“Inside Windows NT: 

A Design Overview") explained, Windows NT is 
a new, portable, 32-bit, client/server operating 
system whose underlying design bears more 
resemblance to the MACH operating system 
than to DOS, Windows, or OS/2. Although Win¬ 
dows NT can offer more than one operating 
system environment, the Win32 environment 
subsystem has special importance: in addition 
to supporting the new Win32 API, this subsys¬ 
tem also manages the screen, keyboard, and 
mouse for the other environment subsystems 
(POSIX and OS/2). The Win32 environment sub¬ 
system also plays a part in handling the 
onerous task of supporting existing DOS and 
Windows 3.x applications. This article first ex¬ 
amines backward compatibility in Windows NT 
and then investigates the structure of the 
Win32 environment subsystem and the new 
features it offers to Windows programmers. 


Helen Custer has worked for the last 
three years in Microsoft's Windows NT 
development group, chronicling the 
emerging design of Windows NT. 
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Figure 1 


Note: DOS Windows maps a single copy of DOS to each 
virtual 8086 machine (VM). Virtual memory gives 
each VM the illusion that it has a 1Mb contiguous 
address space that starts at location 0000:0000. 
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Backward Compatibility 

Windows NT supplies backward compatibility with DOS 5.0 
and enhanced-mode Windows 3.1 applications. The Windows 
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NT designers established several broad 
goals for this code, agreeing that it 
should: 

• Allow users to easily migrate from 
DOS or Windows to Windows NT 

• Run all major DOS and 16-bit Win¬ 
dows applications, while protecting 
the rest of the operating system 
from them 

• Maintain binary compatibility with 
DOS and 16-bit Windows applica¬ 
tions, even on non-80x86 CPUs (such 
as the MIPS R4000 RISC chip) 

• Allow 16-bit Windows applications to 
run as peers to 32-bit Windows NT 
applications. 

Under Windows NT, DOS applications 
run within the context of a process 
called a virtual DOS machine (VDM). A 
VDM is a Win32 application that estab¬ 
lishes a complete, virtual computer run¬ 
ning DOS. A VDM is similar to an en¬ 
hanced-mode DOS Windows virtual 
8086 machine (see the sidebar and Fig¬ 
ure 1), but on Windows NT, it has the 
address space layout shown in Figure 2. 

While all of the code below the 16Mb boundary in the 
VDM is based on 16-bit segmented addresses, the code above 
this boundary is written using 32-bit flat addresses, Windows 
NT's format. The 32-bit portion of the VDM's address space is 
sophisticated. It includes a collection of virtual device drivers 
and 32-bit DOS emulation code that is the same across dif¬ 
ferent processor architectures. The instruction execution unit 
is processor-dependent code. On the Intel 80x86, it acts as a 
trap handler, capturing instructions that cause hardware traps 
and transferring control to the code that handles them, such 
as the virtual device drivers. On the MIPS processors, this code 
is an instruction emulator, converting 80x86 instructions to 
MIPS instructions. (The MIPS version was written by Insignia 
Solutions, Ltd.) 

The virtual device drivers act as a layer between DOS ap¬ 
plications and the hardware attached to the Windows NT 
machine. In its first release, the VDM environment provides 
virtual device drivers for standard PC devices, including the 
mouse, the keyboard, printer, COM: ports, and so on. The 32- 
bit VDM code handles DOS I/O operations by trapping them 
and calling either Win32 APIs or native NT system services to 
carry out the I/O. For example, it processes COM: port requests 
by opening the COM: device driver and sending it I/O control 
codes (lOCTLs). To update the video, a thread within the VDM 
process periodically examines the video RAM where the DOS 
application is writing and calls Win32 API functions to update 
the screen pixels that have changed. 

Although many DOS sessions can run at the same time, 
their memory usage remains relatively low. The first 640Kb of 
virtual memory in each process, plus any memory they use 
up to the 16Mb boundary, is unique and not shared between 
VDMs. Above the boundary, however, the NT Executive’s vir¬ 
tual memory manager shares one copy of the 32-bit code 
among all VDM processes. Furthermore, because VDMs are just 



Page 6 - Windows/DOS Developer’s Journal 


August 1992 
























































user-mode processes, they are entirely 
pageable. This means that NT’s virtual 
memory manager only loads into physi¬ 
cal memory those portions of the DOS 
5.0 code and the DOS application code 
that the application uses, as it uses 
them. It also transfers their memory 
contents to disk temporarily if memory 
usage on the system is high. 

The 16-bit Windows environment on 
Windows NT is a hybrid application that 
runs within the address space of a VDM 
process. It calls Win32 API functions to 
do most of its work, but occasionally 
calls NT services as well. The developers 
of the 16-bit Windows environment 
refer to it as WOW, which is short for 
(16-bit) Windows on Win32. 

Figure 3 shows the layout of DOS 
and 16-bit Windows environments 
under Windows NT. This arrangement - 
i.e., one DOS application per DDM and all 
16-bit Windows applications in a single 
VDM - is analogous to the way en- 
hanced-mode DOS Windows uses virtual 
8086 machines. In fact, the Intel version 
of Windows NT still uses the virtual 8086 mode of the 80386 
and 80486 processors in its VDMs. The crucial difference is 
that, under DOS Windows, the operating system resides in the 
same address space as applications. In contrast, Windows NT 
puts DOS and the 16-bit Windows environment in user-mode 
processes, protecting the NT Executive from problems that 
might occur in those environments, since they can only access 
NT by calling system services. 

Inside the Win32 Subsystem 

As the previous section showed, Windows NT uses VDMs 
to provide backward compatibility with DOS and 16-bit Win¬ 
dows. The Win32 environment subsystem provides services 
that VDMs need to do their job, but is not directly responsible 
for DOS and 16-bit Windows compatibility. This section discus¬ 
ses the structure of the Win32 subsystem and its special place 
among the other environment subsystems in Windows NT. 

Most of the code in DOS Windows resides in one of three 
DLLs: KERNEL (operating system functions), USER (user interface 
management), or GDI (graphics). The Win32 subsystem varies 
slightly from this structure. It consists of the components 
shown in Figure 4. 

Operating System Functions 

The operating system portion of the Win32 subsystem 
provides services such as file I/O, but also new features such 
as multithreading and interprocess communication. Under DOS 
Windows, the underlying copy of DOS provides file I/O and 
related services. On Windows NT, those services are now part 
of the Win32 API, and the Win32 subsystem implements them 
by calling native NT Executive services. 

Consoles 

Consoles, another new feature of Windows NT, provide an 
output window for character-oriented programs. The C run¬ 



time library, for example, calls the console API to direct stand¬ 
ard output for POSIX applications to a console window. 
Likewise, when an OS/2 application calls VIO functions or a 
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DOS application calls I NT lOh functions, Windows NT’s OS/2 
subsystem or DOS VDM, respectively, uses the Win32 console 
API to display the text output. 

A 


Console windows sit alongside 
graphical windows on Windows NT and 
users can pass text between them via 
the Win32 clipboard. Furthermore, with 
the new Win32 console API, developers 
can write 32-bit, character-based ap¬ 
plications for Windows NT. All of the 
command-line utilities shipped with 
Windows NT are Win32 applications. 
Unlike OS/2 2.0, which requires DOS ap¬ 
plications and 32-bit OS/2 applications 
to be run from separate windows, Win¬ 
dows NT consoles can run all character¬ 
mode applications. 

Window Management 

The Window Manager does the work 
that makes Windows NT look like Win¬ 
dows. Like the USER DLL of Windows 
3.x, the Window Manager handles the 
constituents of the graphical user inter¬ 
face: windows, menus, input events, the 
clipboard, the input focus, and so on. 
The Win32 Window Manager has been 
redone and partly redesigned, widening 
the API to 32 bits where necessary and 
providing some new functions. As last 
month's article discussed, the Window Manager, unlike DOS 
Windows and OS/2 PM, is not at the mercy of applications to 
service their input queues. Instead of a single system input 
queue, it gives each thread its own input queue so that rogue 
applications can only hang themselves, not the system. 
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GDI 

Win32’s GDI component did not just change from the 16-bit 
version, it was entirely rewritten. The primary goals for the 
GDI component of the Win32 subsystem were to replace as¬ 
sembly language code with portable C++ code and to redesign 
GDI’s inner workings to support some advanced features. The 
new capabilities include Bezier curves, which give users of 
drawing packages fine-tuned control in drawing arcs; paths, 
the ability to create arbitrarily-shaped objects using sequences 
of drawing commands; object transformations, the ability to 
map the contents of one coordinate space into another; and 
later, correlation, a way to easily determine whether one ob¬ 
ject or region overlaps another. 

Another design change in GDI is the new device driver in¬ 
terface, which borrowed from the GDI team's collective ex¬ 
perience with both the DOS Windows and the Presentation 
Manager graphics engines. It is a big improvement over both, 
giving the Win32 graphical device drivers (which are respon¬ 
sible for creating device-specific images and sending them to 
output devices) a finer degree of control. For example, GDI 
tailors the input it gives to a driver according to what opera¬ 
tions the driver understands. If a particular driver understands 
Bezier curves, then GDI passes complete Bezier curves to it as 
input. If a driver doesn’t understand Beziers, then GDI breaks 
the curve into simple line segments before sending it to the 
driver. In addition, GDI has incorporated new support for creat¬ 
ing bitmap images, which video and printer drivers, in par¬ 
ticular, can use in lieu of writing their own. With this support, 
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it is easier to get device drivers running 
quickly. Developers can rely on GDI to 
do most of the work, adding only 
device-specific enhancements and op¬ 
timizations to the driver itself. 

Because the video is regarded as 
global data (i.e., used by all windows 
applications), GDI functions that change 
the state of the screen are imple¬ 
mented entirely in the Win32 subsys¬ 
tem, rather than in the address space 
of the caller. To achieve maximum per¬ 
formance for these functions, the GDI 
component implements several op¬ 
timizations. Thus, to change the colors 
on the screen, a Win32 application 
might call an API to set the foreground 
color, call again to set the background 
color, then do several other operations 
before drawing anything on the screen. 

Instead of calling the Win32 subsystem 
once for each of these GDI functions, 
the client-side DLL stores the changed 
information in a buffer, when the ap¬ 
plication draws something to the 
screen, the DLL sends all the changed 
data to the subsystem in a single message. This attribute 
caching, as it is called, minimizes the number of context 
switches and time spent passing messages between your 
client application and the Win32 subsystem. Similarly, GDI may 
batch multiple API function calls in a queue, sending them to 
the Win32 subsystem when the queue gets full or when the 
user enters input. 

You must keep this caching and batching behavior in mind 
when writing new multithreaded Win32 applications. If two 
threads are working together, they must synchronize their ex¬ 
ecution to be sure that their operations execute in the proper 
order. For example, just because a thread has called an API 
function does not mean that the result appears on the screen 
immediately. The API call may be stored in the thread's buffer, 
waiting to be flushed to the screen. GDI provides a function to 
let threads explicitly send cached API calls to the Win32 sub¬ 
system. 

Another effect of the client/server model is that applica¬ 
tions which repeatedly manipulate and redraw large bitmaps 
can have poor performance compared to device-independent 
figures drawn using GDI calls. Because each object or bitmap is 
private to the client application, it must be sent in a message 
to the server each time the screen is updated. To maintain 
optimum performance, applications should either redraw only 
modified portions of a bitmap image, if possible, or rely on GDI 
functions to draw all images, taking advantage of GDI's cach¬ 
ing and batching techniques to optimize performance. The 
new Win32 GDI functions are better equipped than the 16-bit 
GDI functions to provide all of the drawing capabilities sophis¬ 
ticated applications require. 


can be shared. That includes not only files, but also user interface 
resources, such as windows. The security features apply uniform¬ 
ly to all such shared resources. The first time an application tries 
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Security is another new feature the Win32 API brings to 
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Layers of 


The history of the PC is that of layer upon layer of back¬ 
ward compatibility. Almost all of these layers have to do 
with memory management and protection. As PC programs 
began to feel the pinch of 8086's 1Mb limitation, expanded 
memory boards appeared, providing extra memory via a 
bank-switching scheme. The Lotus-Intel-Microsoft Expanded 
Memory Specification (LIM EMS) evolved to provide a standard 
programming interface to all such expanded memory devices. 

Next, the PC-AT appeared and offered a ring protection 
scheme and access to up to 16Mb of memory, but only in 
protected mode. (DOS programs run in real mode.) OS/2 vl.O 
was written to take advantage of these capabilities, but exist¬ 
ing DOS applications could only use the 80286 as a fast 8086. 

Since the number of DOS programmers and programs 
continued to outweigh the number of OS/2 programmers 
and programs, programmers invented clever schemes to 
allow DOS programs to take advantage of the 80286 
without extensive source code changes. Extended memory 
managers (somewhat standardized by XMS, the extended 
Memory Specification) switched back and forth between 
real and protected modes to copy memory between ex¬ 
tended memory (memory above 1Mb) and conventional 
memory, letting DOS programs treat extended memory 
more or less as a fast hard disk. Other packages emulated 
the expanded memory boards of the 8086. Unfortunately, 
switching back and forth between real and protected 
mode programs is quite slow. (The 80286 was not designed 
to allow switching from protected mode back to real mode.) 

A more successful approach to providing 80286 features 
to DOS programs came in the form of DOS extenders. Al¬ 
though most assembly-language DOS programs could not 
hope to run in protected mode (since the meaning of seg¬ 
ment registers in protected mode is totally different), many 
programs written in high-level languages could execute in 
protected mode with relatively few problems. The real 
sticking point is DOS, since it always runs in real mode. DOS 
extenders are really miniature operating systems that you 
link in with your program. At startup, a DOS extender 
switches to protected mode and loads your program into 
extended memory to execute. The real chore for the DOS 
extender, however, is to intercept all of your program’s DOS 
calls. The DOS extender has to copy any data you passed 
to DOS down into conventional memory, switch to real 
mode, execute the desired DOS function, switch back to 
protected mode, and copy any resulting data back up into 
extended memory. 

Since both DOS extenders and the 80286 memory 
managers mentioned previously want to control extended 
memory, early versions of these products could not run 
together. Vendors collaborated to create a specification, the 
Virtual Control Program Interface (VCPI), to solve this prob¬ 
lem. Although VCPI was designed for the 80286, it was also 
compatible with the 80386 when that CPU arrived. Unlike 
the 80286, however, the 80386 was designed to solve the 
problem of DOS compatibility. In addition to supporting real 
mode and 80286 protected mode, the 80386 features a vir¬ 
tual mode that provides hardware support for creating 
operating systems that can run 8086 programs side-by-side 
with protected-mode programs. The 80386 effectively 


History 

removed the performance penalty of switching between 
real and protected modes. As a result, the programs that 
used extended memory to emulate expanded memory sud¬ 
denly became fast enough to be attractive; the 80386, ironi¬ 
cally, breathed new life into an old 8086 workaround. 

As with the 80286, the 80386 offered operating system 
support features that more than one application wanted to 
take advantage of, and VCPI did not address many of these 
new features. As a result, Microsoft, Intel, and a variety of 
other vendors created the DOS Protected-Mode Interface 
specification (DPMI) to specify the services that must be 
provided by whatever application installs itself as an 80386 
operating system. Enhanced-mode Windows 3.0 is such an 
operating system and it provides DPMI services to any vir¬ 
tual 8086 machines (DOS boxes) that a user creates. After 
Windows 3.0 appeared, new DPMI versions of DOS ex¬ 
tenders allowed DOS programs running under enhanced- 
mode Windows to share extended memory with Windows 
applications. In fact, enhanced-mode Windows 3.x is proper¬ 
ly classified as a DPMI DOS extender. Enhanced-mode Win¬ 
dows also supports previous versions of LIM EMS and XMS. 

Figure 1 provides an abstract view of the enhanced- 
mode Windows 3.x environment. At its core, enhanced- 
mode Windows is running multiple virtual 8086 machines 
(VMs). Each of these VMs contains a copy of DOS and, from 
the perspective of any program running in the VM, the VM 
looks very much like an 8086 machine. The very first VM 
(called the system VM) is special - it contains Windows and 
all Windows applications. As with any other DOS extender, 
Windows intercepts calls your Windows application makes 
to DOS and performs the necessary argument copying and 
switching between real (virtual 8086 mode, actually) and 
protected modes. 

The 80386 brought with it a capability that Windows 3.x 
does not fully exploit: 32-bit mode. Although the 80386 can 
emulate both an 8086 and an 80286, it can also run in a 
mode where registers are 32 bits wide instead of 16, and 
all of memory (up to 64Mb of physical memory) can reside 
in a single segment, finally ridding programmers of that PC 
albatross, the 64Kb segment limitation. Just as DOS runs in 
real mode, Windows runs in 80286 protected mode, which 
means it is incompatible with 32-bit mode. However, some 
vendors have already created Windows extenders, code 
that loads your 32-bit code into memory and then inter¬ 
cepts each call you make to Windows, performing the 
necessary transformations in both directions. 

Backward compatibility is the bane of programmer's 
lives. We would all like to start with a clean slate when we 
design software. PC operating system designers do not 
have that luxury, due to the thousands of existing applica¬ 
tions that depend upon features such as EMS, XMS, VCPI, 
DPMI, and more. For operating systems like OS/2 and Win¬ 
dows NT to provide backward compatibility with existing 
DOS and Windows applications (even on non-Intel 
machines, in the case of Windows NT!) is no mean feat. PC 
operating system designers must pay an increasingly heavy 
price in order to be able to answer the simple-sounding 
question “Is it backward compatible?" in the affirmative. □ 

Ron Burk 
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to access a shared object, the Win32 
subsystem verifies its right to do so. If 
the security check succeeds, the Win32 
subsystem allows the application to 
proceed. The Win32 subsystem imple¬ 
ments object security on a number of 
shared objects, including window ob¬ 
jects, menu objects, and, like the NT Ex¬ 
ecutive, on files, processes, threads, and 
synchronization objects. 

Security does not affect the bulk of 
existing user-interface code, but it does 
result in some changes. For example, 
you can no longer create your own 
global window class; only the 
predefined window classes are global. 
Similarly, under DOS Windows you 
could use SetWindowLongO to install 
your own window procedure for any of 
the predefined window classes. You 
cannot do that under Windows NT be¬ 
cause it would violate security: imagine 
someone leaving a program running on 
your workstation that took over the 
standard edit control and secretly spied 
on everything you typed into an edit 
control. 

Logon 


Figure 5 



Initiating Logon 


Once the security subsystem receives your logon informa¬ 
tion, it uses an authentication package to verify it. Different 
authentication packages can be plugged into Windows NT’s 


User logon is a new feature for Windows NT, designed to 
help make the operating system truly secure (as defined by 
the U.S. government). Logon prevents unauthorized users from 
accidentally or maliciously doing things they aren’t supposed 
to do with other people's data. 

There are two ways to gain access to Windows NT: 
through an interactive logon or by logging on over a network 
connection. The security subsystem ensures that any user 
who tries to access Windows NT has been given the authority 
to do so by a system administrator. In most cases, “authority" 
means that an entry exists for the user in Windows NT’s 
security account manager (SAM), a database containing user 
names, passwords, and other security information. Windows 
NT is flexible in the number and types of external logon 
devices it can support. The logon architecture takes the form 
shown in Figure 5. 

Logon can be requested either directly through a keyboard 
attached to a Windows NT system or over a network. In both 
cases, a local process must intercede and make sure that the 
access is legitimate. The LAN Manager or other network server 
process does this job for network logons. For interactive 
logons, a Win32 process waits for you to press Ctrl-Alt-Del 
and then prompts you for logon information. 

Two types of information are needed to verify that you are 
a legitimate user: identification information and authentication 
information. The first is your account name and the second is 
your password. However, Windows NT's security system is 
flexible enough that the ID information could be an ATM card, 
for example, and the authentication information your personal 
information number. 


AccuSoft 

Image Format Library 

TIFF, PCX, TARGA, GIF, DIB, BMP, WMF,WPG 


Import , export, convert, display, & print all eight formats. Both DOS libraries 
and Windows DLL included in one low priced, royalty free, package. 
Sample applications with complete source code included. Support for all 
eight formats can be achieved with a single function call! The libraries handle 
everything from detecting the file type to handling all flavors of file encoding. 
Up to 24 bits/pixel. These libraries are used by several major software 
companies. Source code available. Don't settle for anything less. 

Only $295 

Plus Shipping 

No 

Royalties 

Windows DLL included DOS libraries included 




• Supports all major C&C++ languages including Microsoft, Borland, 
Watcom, and Metaware. 

• Supports all Windows languages including Visual Basic, Turbo Pascal 
for Windows, Smalltalk, Actor, etc. 


Order Hotline (800) 525-3577 


Call for full details by FAX 


30 day satisfaction guarantee! 

160 E. Main St. (508)898-2770 

Westboro, MA 01581 (508) 898-9662 (fax) 


AccuSoft 

C o r p o r a t i o n 
Precision crafted software 


□ Request 120 on Reader Service Card □ 


Windows/DOS Developer’s Journal — Page 11 


August 1992 













































security system so that future input devices are easily sup¬ 
ported. However, in the normal logon, the Windows or LAN 
Manager authentication package checks the SAM database 
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and if the entered password matches 
that currently in the database for you, 
it returns an ID number and a list of 
group and alias IDs that you belong to. 

The security subsystem then obtains 
any additional information about you 
from its local policy database, including 
any privileges you own and your quota 
limits. Finally, the security subsystem 
constructs a security token to represent 
you and gives the token handle to the 
logon process, as illustrated in Figure 6. 
With that, you have established a logon 
session with Windows NT. 

Running Applications 

Once you log on, the Win32 subsys¬ 
tem creates processes to run the 
various applications you start. When 
you click on an icon, for example, the 
Win32 subsystem directs that mouse 
input to the Program Manager. The Pro¬ 
gram Manager then calls the Win32 
subsystem to create a new process and 
start the application in it. 

The Win32 subsystem cannot run 
non-Win32 applications directly, because it does not imple¬ 
ment 16-bit Windows, DOS, OS/2, or POSIX APIs itself. There¬ 
fore, whenever you start an application whose executable file 
format the Win32 subsystem does not recognize, it still 
creates a process in which to run the application, but instead 
of starting it, the subsystem passes control of the process to 
another subsystem (such as POSIX or OS/2). Thereafter, that 
application's API calls go directly to that subsystem. 

Summary 

Windows NT offers three environment subsystems, Win32, 
OS/2, and POSIX, but the Win32 environment subsystem plays 
a central role in Windows NT, since it manages the user inter¬ 
face on behalf of all the environment subsystems. Also, VDMs 
and WOW use the services of the Win32 subsystem to offer 
backward compatibility with DOS and 16-bit Windows applica¬ 
tions. The client/server architecture of Windows NT keeps 
VDMs, the Win32 subsystem, and each Win32 application in a 
separate address space, using the hardware’s virtual memory 
protection to create a robust and secure environment for 
developing and running applications. □ 
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Introduction 

Most Windows applications need to pop up a dialog box to 
prompt users for input, but sometimes there are too many 
input fields to fit into even a fullscreen dialog box. One possible 
work-around is to have the application pop up multiple dialog 
boxes, distributing the fields among them. Unfortunately, this 
method poses many problems. Multiple dialog boxes may lead 
to integrity loss. The user cannot see the full presentation and 
must finish answering the current dialog box before moving on 
to the next. In addition, once the user exits from a dialog box, 
it becomes difficult to reenter it. Implementing multiple dialog 
boxes is also more complicated technically and requires more 
programming effort because the application needs to have a 
temporary buffer to hold the input values of all dialog boxes. 

A better solution to this problem is to have a dialog box 
with multiple pages. An application can have as many pages as 
it needs, and each page will display a portion of the fields to 
be entered. Users can then switch from one page to another in 
any order without going through all the fields in the dialog 
boxes. In this article, I present a simple way to create multiple- 
page dialog boxes. 

A dialog box is basically a window with controls that con¬ 
forms to a standard keyboard user interface. If there are too 
many controls, the dialog box runs out of display space. In such 
cases, multiple-page dialog boxes come into play. There are 
two ways of implementing a multiple-page dialog box. 

Solution 1: Multiple Dialog Boxes 
under a Parent Dialog Box 

The first method is to create multiple modeless child dialog 
boxes under a parent dialog box. This method is quite easy to 
implement. The application simply needs to call Create- 
DialogO with the child dialog box template inside the parent 
dialog box function during the WM_INITDIALOG message. The 
application should show only one child modeless dialog box at 
any given time. Each child modeless dialog box forms a page. 
Showing a different child modeless dialog box then displays a 
different page. 
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With this method the dialog 
designer's task is simple. Since each 
page is just an individual dialog box, the 
designer can use a visual dialog box 
layout program to design the look and 
feel of the whole dialog box effectively. 
However, there may be some problems 
for the application programmer. When 
the programmer needs to interface a 
control in a page, the programmer has 
to know exactly which page contains 
the control and must use that page's 
child dialog box window handle to ac¬ 
cess the control. However, if the dialog 
designer decides one day to move a 
field from one page to another (market¬ 
ing and management people really like 
to do this), the programmer will have to 
go to the source code and change all 
the interface codes that affect the con¬ 
trol. This can be extremely tedious. 

Solution 2: Show Only a 
Portion of All Controls 
at a Time 

The second method puts all the con¬ 
trols in the same dialog box, but allows 
only a specific number of controls to be 
visible at any given time, with the rest 
staying hidden. The controls are divided 
into several parts, and each part is a 
page. The application (dialog box func¬ 
tion) determines which part (or page) 
should be visible. Technically, this is just 
one dialog box window with a number 
of child controls, but from the user's 


perspective, this is a multiple-page 
dialog box. 

The easiest way to implement this 
approach is to put all the controls in a 
single dialog box template in the 
resource. Simply call DialogBox() to 
create the dialog box. The application 
then must either statically maintain or 
hard-code the information about which 
control belongs to which page. The ap¬ 
plication must also hide all those con¬ 
trols that are in a hidden page and 
show only those that belong to the cur¬ 
rent visible page. This is easy to do, but 
very hard to maintain and not very 
elegant. It also presents design 
problems because the controls will 
overlap each other. What's needed is a 
mechanism that is easy for both the 
application programmer and the dialog 
box designer. 

The Requirements 

The dialog box designers should be 
able to use any visual dialog box layout 
program and design one dialog page at 
a time, as if each page were an in¬ 
dividual dialog box. In other words, 
each page is a dialog box template in 
the resource. 

The Windows application program¬ 
mers should not have to know which 
control goes with which page, but 
should be able to program as if there 
were only one dialog box function and 
all controls were the same. The applica¬ 
tion should be able to use the same old 
functions to interface a control in the 
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dialog box no matter where it is. Such a 
methodology will save a lot of time 
should the management or marketing 
people decide to change the layout of 
the dialog box in the future. 

Go with Solution 2 

Based on the requirements stated 
above, the first method (multiple child 
dialog boxes under a parent dialog) 
poses some architectural problems that 
are hard to solve. If you use several 
child dialog boxes, each with a set of 
controls, there is really no easy way of 
making the application interface act as 
if it were dealing with a regular dialog 
box. Therefore, the programmer has to 
keep track of which particular page the 
control belongs to and program the in¬ 
terface through that page. 

By contrast, the design problem in 
method 2 can easily be overcome. 
Simply allow the designer to lay out 
each page of the dialog individually as a 
separate dialog box template in the 
resource. 

Solution 2 Overview 

Listing 1 (pagedig. c) contains all the 
code you need to implement multipage 
dialogs. As this listing shows, the entire 
API consists of three functions: 

CreateDlgPage( hwndDlg, hlnst, 

lpName, pt, fShow ); 

EndDlgPage( hwndDlg ); 

ShowDlgPage( hwndDlg, iPage, 

fShow ); 

CreateDlgPage() creates a page of 
controls. The page is specified by the 
dialog box template. 

EndDlgPage() cleans up all the 
memory used by the multiple-page 
dialog box manager. 

ShowDlgPage() shows or hides a 
specific page of controls. 

The multiple-page dialog box con¬ 
sists of the base dialog and pages. The 
application creates the base dialog as a 
regular dialog box, then calls Dialog - 
Box() for a modal dialog or Create- 
DialogO for a modeless dialog. The 
base dialog box template usually con¬ 
tains the control(s) for switching pages 
(there are three buttons in the test ap¬ 
plication). The base dialog box should 
have an empty area, called the paging 
area, to show pages (see Figure 1). To 
create the pages, the application should 


call CreateDlgPage() during the WM_IN- 
ITDIALOG message in the dialog box 
function. After the pages have been 
created successfully, the application can 
access any control in any page or in the 
base dialog using the regular interface 
from a dialog box to its control (e.g., 
GetDlgItemInt (), GetDlgltemTextO). 
Notice that the dialog designer is able 
to lay out each page individually be¬ 
cause CreateDlgPagef) uses a dialog 
box template to create a page. The 
dialog box function can switch from one 
page to another simply by calling Show- 
DlgPagef) to show the new page and 
by calling ShowDlgPagef) to hide the 
rest. Finally, when the dialog box is 
done, the dialog box function should 
call EndDlgPage () to clean up. 

In general only one page should be 
visible at any time, but the interface 
does not prevent you from showing 
more than one page at a time. This 
flexibility allows the application to cre¬ 
ate a dialog box with more than one 
paging area (see Figure 1). 

CreateDlgPagef) 

This function allows the application 
to create a page of controls by specify¬ 
ing a dialog template. CreateDlgPage() 
first tries to allocate memory to store 
the instance data. Instance data can be 
any necessary accounting information 
such as the number of controls in each 
page and a list of controls for each 
page. 

To make the interface more object- 
oriented, CreateDlgPage() attaches the 
instance data handle to a fixed property 
(via Set Prop ()) of the dialog box win¬ 
dow. The instance data then becomes 
accessible whenever the dialog box 
window handle is a passed parameter. 
This quick and not-so-clean method 
achieves object-orientivity because the 
multiple-page dialog box API assumes 
that the caller dialog box window will 
not use the same property. 

If the instance data handle is not at¬ 
tached to a property, CreateDlgPage() 
must return the instance data handle to 
the caller and have the caller pass it 
back whenever the multiple-page 
dialog box API is called again, as in the 
following code: 

hData = CreateDlgPage( 0, 

hwndDlg, ... ); 
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Professionals consistently chose Sourcer 
because of its ability to achieve far superior 
results with the least effort. 


Windows 


Windows Source™ works with Sourcer to 
generate detailed listings of Windows EXEs, 
DLLs, VxDs, and OS/2 files. See the actual 
Windows module names used in the programs 
you analyze. Learn the undocumented 
Windows functions used by the professionals 
to perform tricks that are otherwise impossible. 
Purchase with Sourcer and save $30. 


BIOS Source 


for PS/2, AT, XT, PC and Clones 

□ Change and add features 

□ Clarify Interfaces 

The BIOS Pre-Processor™ augments Sourcer 
to obtain commented listings for any BIOS 
ROM in your PC. Now you can understand 
how your specific BIOS works. Adds over 
75K of comments specific to your BIOS. 
Tracks and identifies multiple interrupt 
branches with special labeling such as 
"int_10_video.' Full automatic operation. 


Sourcer -Commenting Disassembler $129.95 

BIOS Pre-Processor 49.95 

Sourcer w/BIOS-(save $10) 169.95 

Unpacker -Unpacks packed files 39.95 

View-lt -View 132 column files 69.95 
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Windows Source and Sourcer 229.90 
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hData = CreateDlgPage( hData, hwndDlg, ... ); 

hData = CreateDlgPage( hData, hwndDlg, ... ); The burden is on the caller, as the caller needs to remember 

the instance data handle. Nevertheless, so long as the use of a 
ShowDlgPage( hData, hwndDlg ); fixed property to store the instance data handle is well-docu¬ 

mented and the caller is well-informed, this approach should 
EndDlgPage( hData, hwndDlg ); be safe. 


Listing 1 (pagdlg.c) 


Author: 


* Date: 

h 

* Compiler: 

* OS: 


Kanhom Ng 

Kansmen Corporation 
12/09/91 

Microsoft C 6.00A 
Windows 3.0 


* Copyright (C) 1991 Kanhom Ng. All rights reserved. 

★ 

*/ 


^define 

^include 

Idefine 

Idefine 


N0C0MM 

<windows.h> 

MAXPAGE 

SYSCLASS 


10 

0x80 


typedef struct ( 


int 

x; 

/* 

x (RC) of the upper-left corner 

*/ 

WORD cCtls; /* count of control 

*/ 

int 

y; 

/* 

y (RC) of the upper-left corner 

*/ 

HANDLE hCtls; /* handle to the 

control list*/ 

int 

cx; 

/* 

width ( RC ) of the item */ 


} PAGE, FAR * LPPAGE; 


int 

cy; 

/* 

height ( RC ) of the item */ 




int 

id; 

/* 

id of the item */ 


/* paging dialog information */ 


long 

IStyle; 

/* 

style of the item */ 
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programmer as the script language is powerful and easy to use. Data 
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MTASK ^ 

f MuttiPort Cards ^ 
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typedef struct ( 

WORD cPg; 

PAGE aPg [MAXPAGE]; 

} 0LGHDR, FAR * LPDLGHDR; 


/* count of page */ 
/* Page list */ 


typedef struct { /* 
long 1 Style; 

BYTE cltem; 
int x; 
int y; 
int cx; 
int cy; 

/* szResource[]*/ 
/* szClass[] */ 

/* szCaption[] */ 
/* fontinfo */ 

} DT, FAR * LPDT; 


dialog box template */ 

/* dialog box style */ 

/* number of item in dialog */ 

/* x ( RC ) of upper-left corner*/ 
/* y ( RC ) of upper-left corner*/ 
/* width (RC) of the dialog box*/ 

/* height (RC) of the dialog box */ 
/* Null-terminated string */ 

/* Null-terminated string */ 

/* Null-terminated string */ 

/* font info if specified */ 


typedef struct { /* dialog item */ 


/* szClass[]*/ /* Null-terminated string */ 


/* szText[] */ /* 
/* byinfo */ /* 

} DIT, FAR * LPDIT; 


Null-terminated string */ 
count of the additional data 


static char szDlgPagePropG « "DialogPageHeader”; 
static char *aSysClass[] = { 

"button", "edit", "static", "listbox", 

"scrollbar", "combobox" 

); 

static HANDLE CreatePageCtl( LPDIT, HANDLE, HWND, 

WORD, POINT, BOOL ); 

BOOL CreateDlgPage( 


HWND 

hWnd, 

// 

handle to the base dialog 

HANDLE 

hlnst, 

// 

instance handle of resource 

LPSTR 

lpName, 

// 

name of the dialog template 

POINT 

Pt, 

// 

controls offset 

BOOL 

fShow ) 

// 

initially visiable? 

BOOL 

fSuccess;/* 

result of this function */ 

HANDLE 

hRes; 

/* 

handle to the resource */ 

HANDLE 

hDlgRes; 

; /* 

handle to the mem resource */ 

HANDLE 

hHdr; 

/* 

handle to the page header */ 

HANDLE 

hCtls; 

/* 

handle to the control list */ 

LPDT 

lpdt; 

/* 

points to dialogTemplate */ 

LPBYTE 

ipby; 

/* 

pointer for calculation */ 

LPDLGHDR lpHdr; 

/* 

points to page header */ 

fSuccess ■ FALSE; 

i 


hRes = 

hDlgRes = 

0; 


lpdt = 

NULL; 



hHdr = 

GetProp( hWnd, 

, szDlgPageProp ); 

if ( ! 

hHdr ) 




fSuccess=hHdr=GlobalA11oc(GHND, sizeof(DLGHDR)); 
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CreateDlgPage() loads the specified dialog template by 
calling the standard resource functions FindResourceO, Load- 
Resource(), and LockResource(). At the beginning of each 
template is the dialog template header, which specifies how 
the dialog box in the template should be created. Note that 
the DLGTEMPLATE data structure defined in the SDK reference 


is not a fixed-size structure because the name of the menu, class 
of the dialog box, and the caption text are all variable-length 
null-terminated strings. Since, in addition, the header includes 
the optional font information at the end, CreateDlgPage() 
must parse each field separately. Recognizing that the applica¬ 
tion already has the base dialog window, CreateDlgPage() 


Listing 1 — Cont’d 


int i; /* loop index */ 

BOOL fSuccess;/* result of this function */ 
HANDLE hHdr; /* handle to dialog header data */ 

LPHANDLE lpCtls; /* points to control list */ 

LPDLGHDR lpHdr; /* points to page header */ 

WORD wShowFlag; /* ShowWindow Flag */ 


else 

{ 

lpHdr - ( LPDLGHDR ) Global Lock( hHdr ); 
if ( lpHdr ) 

{ 

fSuccess = lpHdr->cPg < MAXPAGE; 

GlobalUnlockf hHdr ); 

} 

) 

SetProp( hWnd, szDlgPageProp, hHdr ); 

/* find the dialog box template */ 
if ( fSuccess 

&& ( hRes=FindResource(hInst,lpName,RT_DIALOG)) 
&& ( hDlgRes ■ LoadResource( hlnst, hRes ) ) 

&& ( lpdt » ( LPDT ) LockResource( hDlgRes ) ) ) 

f 

1pby = ( LPBYTE ) ( lpdt + 1 ); // style ... 

lpby += lstrlen( Ipby ) + 1; // resource name 

lpby +■ lstrlen( lpby ) + 1; // class 

lpby += lstrlen( lpby ) + 1; // caption 

/* skip font info if specified */ 
if ( DS_SETFONT & lpdt->lStyle ) 

( 

lpby += sizeof ( short ); // point size 

lpby += lstrlenf lpby ) + 1; // font name 

} 

/* Create the PAGE */ 

fSuccess ■ hCtls ■ CreatePageCtl( (LPDIT) lpby, 
GetWindowWordf hWnd, GWW_HINSTANCE ), 
hWnd, lpdt->cltem, pt, fShow ); 

) 

if ( fSuccess ) 

{ 

fSuccess = FALSE; 

lpHdr ■ GlobalLock( hHdr ); 

if ( lpHdr ) 

{ 

lpHdr->aPg[ lpHdr->cPg J.cCtls = lpdt->cltem; 
lpHdr->aPg[ lpHdr->cPg ].hCtls = hCtls; 

( lpHdr->cPg )++; 
fSuccess = TRUE; 

G1obalUniock( hHdr ); 

) 

) 

if ( lpdt ) 

{ 

UnlockResourcef hDlgRes ); 

) 

if ( hDlgRes ) 

{ 

FreeResource( hDlgRes ); 

} 

return ( fSuccess ); 


BOOL ShowDlgPage( 

HWND hWnd, 

WORD iPage, 

BOOL fShow ) 


fSuccess = FALSE; 

/* ensure we can get our data */ 
hHdr = GetPropt hWnd, szDlgPageProp ); 
lpHdr = hHdr ? GlobalLock( hHdr ) : NULL; 
if ( lpHdr && lpHdr->cPg > iPage ) 

{ 

lpCtls * GlobalLock( lpHdr->aPg[ iPage ].hCtls ); 
wShowFlag = fShow ? SW_SHOWNOACTIVATE : SW_HIDE; 

/* Show/hide each control in the list */ 
for { i = 0; i < lpHdr->aPg[ iPage ].cCtls; i++ ) 
{ 

ShowWindow( 1pCtls[ i ], wShowFlag ); 
InvalidateRect( 1pCtls[ i ], NULL, TRUE ); 
UpdateWindow( lpCtls[ i ] ); 

1 


The $25 Network 
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ignores this header and goes straight to the dialog item list. 
Each item in the list corresponds to a control in the dialog box 
or a CONTROL statement in the resource file. Like the header, 
the item’s data structure - DLGITEMTEMPLATE, which is defined 
in the SDK reference - is also of variable length to accom¬ 


modate possible additional information. When creating the 
controls, CreateDlgPage() converts the dialog units specified 
in the template into screen coordinates by calling MapDialog- 
Rect(). Contrary to the SDK documentation concerning the 
class name of the control, always treating the field as a string 


Listing 1 

fSuccess ■ TRUE; 

GlobalUnlockf lpHdr->aPg[ iPage ].hCtls ); 

} 

if ( lpHdr ) 

{ 

GlobalUnlockf hHdr ); 

} 

return( fSuccess ); 


Cont'd 


/* Free each pages' control list */ 
for ( i * 0; i < lpHdr->cPg; i++ ) 

{ 

if ( lpHdr->aPg[ i ].hCtls ) 

( 

GlobalFree( lpHdr->aPg[ i ].hCtls ); 

) 

) 


} 


BOOL EndDlgPage( 

HWND hWnd ) 

{ 

/* loop index */ 

/* result of this function */ 
/* handle to the page header*/ 
/* points to page header */ 


i nt i; 

BOOL fSuccess; 

HANDLE hHdr; 
LPDLGHDR lpHdr; 


fSuccess * FALSE; 

hHdr = GetPropf hWnd, szDlgPageProp ); 
lpHdr = hHdr ? GlobalLock( hHdr ) : NULL; 
if ( lpHdr ) 
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fSuccess = TRUE; 

G1obalUnlock! hHdr ); 

GlobalFree( hHdr ); 

I 

RemovePropf hWnd, szDlgPageProp ); 
return ( fSuccess ); 


static HANDLE CreatePageCtl( 


LPDIT 

lpdit. 

HANDLE 

hlnst, 

HWND 

hwndParent, 

WORD 

cltem, 

POINT 

ptOffset, 

BOOL 

fVisible ) 


RECT 

rc; 



int 

id; 

/* 

id of the control */ 

HWND 

hwnd; 

/* 

control handle */ 

HANDLE 

hCtls; 

/* 

control list handle */ 

WORD 

cCtlCreated;/* 

count of created */ 

LONG 

1 Style; 

/* 

style of the control */ 

LPSTR 

IpszClass; 

/* 

control class name */ 

LPSTR 

IpszText; 

/* 

control text */ 

LPBYTE 

lpbylnfo; 

/* 

control information */ 

LPBYTE 

lpby; 

/* 

pointer for calculation*/ 

LPHANDLE 

lpCtls; 

/* 

points to control list */ 

cCtlCreated 

= 0; 

/* 

intialization */ 


/* allocate memory for control list */ 

hCtls = GlobalAllocf GHND, sizeof( HWND ) * cltem ); 

lpCtls = (LPHANDLE)(hCtls/GlobalLock(hCtls) : NULL); 

while ( lpCtls && cCtlCreated < cltem ) 

{ 

rc.left = lpdit->x; 

rc.top * lpdit->y; 

rc.right = lpdit->x + lpdit->cx; 

rc.bottom « lpdit->y + lpdit->cy; 

MapDialogRectf hwndParent, &rc ); 

OffsetRect( &rc, ptOffset.x, ptOffset.y ); 

id * lpdit->id; 

1 Style = lpdit->lStyle; 

lpby = ( LPBYTE ) ( lpdit + 1 ); 

/* Is this a system defined class ? */ 
if ( *lpby & SYSCLASS ) 

I 

IpszClass = aSysClassf *lpby - SYSCLASS ]; 
lpby++; 

I 
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Listing 1 —Cont’d 

else 

{ 

IpszClass = lpby; 

lpby += lstrlen( IpszClass ) + 1; 

} 

IpszText = ( LPSTR )lpby; 

lpby += lstrlen( IpszText ) + 1; 

lpbylnfo = *lpby ? lpby + 1 : 0; 

lpdit = (LPDIT) (LPBYTE) ( *lpby + 1 + lpby ); 

/* Should the control be visible ? */ 

1 Style = fVisible ? IStyle | WS_VISIBLE : 

IStyle & ~WS_VISIBLE; 
hwnd = CreateWindow( IpszClass, IpszText, 
IStyle, 

rc.left, rc.top, 

rc.right - rc.left, rc.bottom - rc.top, 
hwndParent, id, hlnst, lpbylnfo ); 

if ( IsWindow( hwnd ) ) 

{ 

1pCtls[ cCtlCreated++ ] = hwnd; 

} 

else 

{ 

break; 

} 

} 

if ( lpCtls ) 

{ 

GlobalUnlock( hCtls ); 

} 

return ( hCtls ); 


/* End of File */ 


Listing 2 (tstpage.c) 


/* 

* Author: Kanhom Ng 

* Kansmen Corporation 


* Date: 12/09/91 

* 


* Compiler: Microsoft C 6.00A 

* OS: Windows 3.0 

* 

* Copyright (C) 1991 Kanhom Ng. All rights reserved. 


*/ 


Idefine NOCOMM 
linclude <windows.h> 
linclude <memory.h> 


linclude “tstpage.h" 

LONG FAR PASCAL TestWndProc( HWND, WORD, WORD, LONG ); 
BOOL FAR PASCAL ModalD1 gProc( HWND, WORD, VORD, LONG ); 
BOOL FAR PASCAL ModelessDlgProc( HWND, WORD, WORD, LONG ); 

/* function prototype for multiple page dialog */ 

BOOL CreateDlgPage( HWND, HANDLE, LPSTR, POINT, BOOL); 
BOOL ShowDlgPage( HWND, WORD, BOOL ); 

BOOL EndDlgPage( HWND ); 

/* local variable */ 

char szTestClass[] = “Test - Mulitple Pages 

Dialog"; 

FARPROC lpfn; 


Listing 2 —Cont’d 


FARPROC 

lpfnLess; 

HWND 

hwndModeless = 0 

int PASCAL WinMain( 

HANDLE 

HANDLE 

LPSTR 

WORD 

{ 

BOOL 

hlnstance, 
hPrevInst, 
IpszCmd, 
wCmdShow ) 

fSuccess; 

MSG 

msg; 

HWND 

hWnd; 

WNDCLASS 

WndClass; 


/* initialization */ 
fSuccess ■ TRUE; 
lpfnLess = lpfn = NULL; 

_fmemset( &WndClass, 0, sizeof( WndClass ) ); 

if ( fSuccess && hPrevInst ■■ 0 ) 

{ 

WndClass.IpfnWndProc ■ TestWndProc; 

WndClass.hlnstance ■ hlnstance; 

WndClass.hlcon =LoadIcon( NULL, IDIAPPLICATION); 
WndClass.hCursor = LoadCursor( NULL, IDC_ARR0W ); 
WndClass.hbrBackground = C0L0R_APPW0RKSPACE + 1; 
WndClass.lpszMenuName = “Main"; 

WndClass.IpszClassName = szTestClass; 
fSuccess = RegisterClass( &WndClass ); 

} 

if ( fSuccess ) 

{ 

hWnd « CreateWindow( szTestClass, szTestClass, 
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does not work. The reason is that the name can be a number. 
If the first byte is greater than 127 (the high bit is on), then it 
is a predefined window control class and should be treated as 
a byte-long unsigned number. Here is what each number 
means: 


128 (0x80) button 

129 (0x81) edit 

130 (0x82) static 

131 (0x83) listbox 


Listing 2 — Cont'd 


WS_0VERLAPPEDWIND0W |WS_CLIPCHILDREN, 
CW~USEDEFAULT, CW USEDEFAULT, 

CW USEDEFAULT, CWJJSEDEFAULT, 

NULL, NULL, hlnstance, NULL ); 
fSuccess = IsWindow( hWnd ); 

) 

if ( fSuccess ) 

{ 

fSuccess = 

( lpfn = MakeProcInstance( (FARPROC)ModalDlgProc, 
hlnstance ) ) 

&& ( lpfnLess « MakeProcInstance( (FARPR0C)ModelessDlgProc, 
hlnstance ) ); 

) 

if ( fSuccess ) 

( 

ShowWindow( hWnd, wCmdShow ); 

while ( GetMessage( &msg, NULL, 0, 0 ) ) 

{ 

if ( IsWindow( hwndModeless ) 

&& IsDialogMessage( hwndModeless, &msg ) ) 

( 

} 

el se 


DISASSEMBLERS ■ 

Recover your source code from compiled 
applications with the following programs: 


Valkyrie, by Code Works, for Clipper S '87. 
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OutFOX for unencrypted FoxBASE+. 

.$149.95 

UEFOX+ unencrypts encrypted FoxBASE+. 
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deFOX for the early FoxBASE II. 

.$149.95 

dCRYPTR for AT dBASE 111+ RunTime+ 

$149.95 

DECODE for AT dBASE O RunTime. 
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( 

TranslateMessage( &msg ); 
DispatchMessage( &msg ); 

} 

) 

} 

FreeProcInstance( lpfn ); 
FreeProcInstance( lpfnLess ); 
return ( NULL ); 


/* 

* Window function for the test application 
*/ 

LONG FAR PASCAL TestWndProc( 

HWND hWnd, 

WORD wMsg, 

WORD wParam, 

LONG lParam 

) 

( 

LONG 1 Ret; 

HANDLE hlnst; 

1 Ret * 0L; 

switch ( wMsg ) 

{ 

case WM_DESTR0Y: 

PostQuitMessage( 0 ); 
break; 

case WM_C0MMAND: 

hlnst = GetWindowWord( hWnd, GWW_HINSTANCE ); 
switch ( wParam ) 

( 

case IDM_M0DAL: 

DialogBox( hlnst, "testl", hWnd, lpfn ); 
break; 

case IDM_M0DELESS: 

CreateDialog( hlnst, "base", hWnd, lpfnLess ); 
break; 

} 

break; 

default: 

IRet ■ DefWindowProc( hWnd, wMsg, wParam, lParam ); 
break; 

} 

return ( IRet ); 


/* 

* 

* This is the modal dialogbox function. 
*/ 

BOOL FAR PASCAL ModalDlgProc( 


HWND 

hDlg, 

WORD 

wMsg, 

WORD 

wParam, 
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C CODE FOR THE PC 

source code, of course 

DBAPrep (embedded SQL to C translator; supports Oracle, Sybase, SQL Server, XDB, Novell XQL, SQLBase, and QE-Lib).$1,500 

Embedded DOS (full-features, real-time, multitasking, 3.31-compatible DOS for embedded system and self-bootable installations).$375 

Style jaC++ class library to build, maintain and traverse arbitrary, non-taxonomic links between C+ + objects).$300 

Spell Time (spelling checker for incorporation into text products; no royalty; large dictionary; small and fast).$300 

ZIP Image Processor & Victor Image Library Version 2.0 (brightness, contrast, merge images, TIFF/GIF/PCX/bin, HP ScanJet support) . . $290 

NE W! The Snooper (Ethernet protocol analyzer for Novell NetWare and LAN Manager Networks; capture packets; real-time display).$275 

NEW! Report Ease (report writer and mail merge engine, include forms and produce reports from your product; no royalties).$275 

TUrboTfcX (Release 3.0; HP, PS, dot drivers; CM fonts; LaTjjX; MetaFont).$250 

Rogue Wave tools.h++ or math.h-)—|- Class Library (extensive docs).each $240 

NEW! InControl Tbolbox(forms package for Windows; validation functions, date/time, regular expression formatted text control).$210 

PxSQL (SQL for Borlands Paradox Engine; ANSI X3.135-1989 SQL-DML standard; network server not required).$180 

c.pslib (PostScript generation library for C programs; includes complete graphics, font, rotation & paragraph support).$170 

NE W! C/C+ + Libraries by Code Farms (persistent C structures, ER models, dynamic arrays, disk pager, database functions, much more).$170 

Viewpoint (C+ +graphics library; 32-bit color, pattern fill, scroll & bitmap, coordinate tranformations).$170 

Minix Operating System (Version 1.5; Unix-like operating system, includes manual; specify 5.25” or 3.5” diskettes).$150 

NEW! ViewTrieve (relational view of Novell Btrieve databases; includes EZTHeve).$150 

Delorie GCC for MS-DOS (Version 1.05; includes C+ + , assembler, DOS extender, 387 emulation; complete source code and makefiles) . . $150 

Booter Toolkit (floppy disk bootstrap routines, DOS file system, light-weight multitasking, windows, fast memory management) .$120 

Dr. MD (runtime memory analyzer & debugger, find many memory corruption errors; examine memory usage).$110 

Visions 1.20 (text window user interface management system; includes mouse support and background processing).$105 

Updated! SCM (portable Scheme in C, conforms to IEEE and 3.99 specs, garbage collection, mixswith Q SCM3C12/SLIB1B3).$100 

PC/IP (CMU/MIT TCP/IP for PCs; Ctynwr drivers, NFS server, Bdale mailer, PCRoute/PCBridge, NDIS/ODI drivers, Beholder, more) . . . $100 

Demacs (complete GNU Emacs for DOS; needs djgcc to build; based on 18.55).$100 

BASH (key-indexed record management system for DOS and Windows DDL; record locking for concurrent access environments).$95 

Script Interpreter (a command script interpreter for DOS-based systems; C-like script language; lots of features).$90 

HorC++(C++Class Library for Borland’s Paradox Engine).$80 

VMEM (virtual memory manager ty Blake McBride, Version 3.6, LRU pager, dynamic swap file, image save/restore).$80 

NEW! CPPCOMM (Version 2.0; C++class library for serial communications). $75 

Updated! evalO (C functions to parse & repeatedly evaluate arithmetic expressions with variables and built-in functions).$75 

TrceDraw (PostScript display of labeled hierarchical trees; DOS & Windows screen display included; Moen algorithm).$75 

BGI Printer Driver Tbolkit (hardcopy drivers for Borland BGI graphics library; Epson, IBM, LaserJet, DeskJet, PaintJet, PostScript) .... $75 

FinanC (large collection of financial function including bond, inventory, stock portfolio, & cash flow).$70 

FlexList (doubly-linked lists of arbitrary data with multiple access methods; specify C or C++).$65 

ps3d (3-dimensional perspective line drawings with PostScript output).$60 

Updated! LDB (Loose Data Binder; persistent data objects for C++; handles pointers between objects) .$60 

Kier DateLib (all kinds of date manipulation; translation, validation, formatting, & arithmetic).$60 

Coder’s Prolog (Version 3.0; inference engine for use with C programs).$60 

MEM-WING (global memory manager for Windows, supports standard C memory allocation calls to "wing” your old C code into Windows) . $55 

NEW! BigFloat (arbitrary precision floating point arithmetic and functions; includes BCD conversion).$50 

CALC (ASCII algebraic expression evaluator, unlimited parenthesis nesting, symbols, 32 built-in functions, easily extended).$50 

Backup & Restore Utility by Blake McBride (multiple volumes, file compression & encryption).$50 

Floppy TAR (TAR backup and restore on MS-DOS devices; direct access to non-standard devices) .$50 

SuperGrep (exceptionally fast, revolutionary text searching algorithm; also searches sub-directories).$50 

OBJASM (convert .obi files to .asm files; output is MASM compatible) .$50 

Updated! CLIPS Version 5.1 (rule-based expert system generator; advanced manuals available at additional cost).$50 

NIH Qass Library & Book (basic C+ + classes & Data Abstraction and Object-Oriented Programming tn C+ + in softback by Keith Gorlen) . $50 

Updated! Editor Pack (19 public domain editors; including microEmacs 3.11, Stevie, Elvis, Moke, mg2a, DTE, Jove, Origami, & GRIEF) .$50 

MicroC C Compiler (retargetable C compiler with optimizer, libraries, and utilities; lots of docs, very portable, tables for 5 cpu’s).$50 

Updated! Classy Forms (screen forms in both C and C++ versions)..$40 

TOUR (beautiful traveling salesman problem solver, finds minimum length paths quickly, includes graphics & plotting programs) .$40 

NEW! Charting Routines (Version 1.0; produce many kinds of charts from ASCII data files; rasterized high quality printing feature) .$40 

DES Encryption & Decryption (2500 bits/second on 4.77 MHz PC for on-the-fly encryption at 2400 baud; domestic distribution only) .... $40 

RXC & EGREP Version 2.0 (Regular Expression Compiler and Pattern Matching; finite state machine from regular expression).$35 

Database Pack (9 databases - simple to complex: isam, bplus, AVL, SDB, ID, gdbm, Requiem, Ingres89, Postgres).$35 

Updated! Bison & BYACC (YACCworkalike parser generators; documentation; includes C and C++ grammars).$35 

Object-Oriented Programming in C+ + (code from the book by Naba Barkakati).$30 

Spell Pack (6 spelling programs, a hyphenator, 2 utility packs and a 60K word list: Ispell, Microsp, Sp, Cspella, Spell, Dawg, Soundex) .... $30 

REGX Plus (Version 2.0, search and replace string manipulation routines based on regular expressions).$30 

GNU Awk & Did for PC (both programs in one package).$30 

Big Number Pack (7 arbitrary precision arithmetic packages in C, one in Fortran but free Fortran-to-C converter is included) .$30 

Crunch Pack (30 file compression & expansion programs; now includes portable ZIP).$30 

UUPC Pack (UUCP for the PC; UUPC Version 1.1 IQ by Wonderworks and smail/PC Version 2.5 by Stephen C Trier).$25 

PERL for MS-DOS (Version 4.019; C, sed, awk, and shell all rolled into one language; includes hardcopy docs).$25 

Td Version 6.1 (Tbol Command Language; add shell programming capability to any command line; elegant command line language) .... $25 

FLEX (fast lexical analyzer generator; new, improved LEX BSD Version Z3.6 with docs).$25 

GNU RCS (FSFs version of the Revision Control System; like Unix’s SCCS only better; keeps track of software development).$20 

PCAL Personal Calendar (generates PostScript calendar for any month or year, lots of options, personalization file for your dates & schedule) $20 
NEW! Publisher’s Interchange Language (PILTbol Kit, Version 5.0, API 2.0 by Quark)).$20 

Unix/386 

X-Winaows (client & server, shared library, Xlib, executables, XAW etc.; code is diffs on X11R4; TCP or same machine).$200 

Kyoto Common Lisp (Austin flavor, naturally; Version 1.530; includes GCC and Portable Common Loops (PCL)).$140 

GNU Emacs Version 18.55 (includes complete source & executables).$125 

\\hffle BBS (interface to UUCP & B or C news; internal forums; files section; external processing; full USENET support).$120 

GNU C Compiler (gcc) Version 1.39 (includes complete source & executables).$100 

ViewComp Spreadsheet (internal termcap; printer output; hardcopy docs).$80 

GNU Debugger (gdb) Version 3.5 (includes complete source & executables).$60 

RPC Pack (Sun’s RPC Version 4.0 and Transport Independent RPQ includes Bernstein’s Unix Client-Server Program Interface (UCSPI)) . . $40 

Gillespie Pascal-to-C (many flavors of Pascal handled; readable & maintainable output).$25 

Gosling Spreadsheet Pack (variants of the 1982 Gosling spreadsheet including PubliCalcand SC version 6.10; 1 MS-DOS variant) .$25 

PDKSH (Public Domain Korn Shell).$20 

CD-ROMs 

NEW! InfoMagic (X11R5, Tahoe 4.3 BSD, complete GNU, ISODE, KA9Q & NCSA TCP/IP, all TCP/IP docs, DOS tools; 600MB).$70 

NEW! Prime Time Freeware (over 1 gigabyte of Unix C code).$60 

NEW! Walnut Creek X1R5 and GNU (X11R5 with contributed and comp.sourcesx, 120 GNU programs, SPARC executables).$35 

NEW! Walnut Creek Usenet and Simtel Unix-C (600MB).$35 

NEW! Walnut Creek Simtel 20 MSDOS Archive (C source code but lots of other stuff too).$20 

The Austin Code Works Voice: (512) 258-0785 

11100 Leafwood Lane much more ... ask for catalog FAX: (512) 258-13)2 

Austin, Texas 78750-3587 USA E-mail: info@acw.com 

Free surface shipping for cash in advance For delivery in Texas add 7% MasterCard/VISA 

□ Request 332 on Reader Service Card □ 
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132 (0x84) scrollbar Once all the controls have been created and saved in the 

133 (0x85) combobox list, CreateDlgPageQ calls UnlockResource() and Free- 

Resource() to unload the dialog box template. 

Since the value of a regular text character cannot be higher 
than 127, this protocol is pretty safe. 


Listing 2 — Cont'd 


LONG lParam 

) 


EndDlgPage( hDlg ); 
EndDialog( hDlg, IDOK ); 
break; 


BOOL fReturn; 

POINT pt; 

HANDLE hlnst; 

fReturn * TRUE; 

switch ( wMsg ) 

{ 

case WM_INITDIAL0G: 

hlnst = GetWindowWord( hDlg, GWW_HINSTANCE ); 
pt.x = pt.y = 0; 

CreateDlgPage( hDlg, hlnst, "Pagel", pt, TRUE ); 
CreateDlgPagef hDlg, hlnst, "Page2“, pt, FALSE ); 
CreateDlgPage( hDlg, hlnst, "Page3'', pt, FALSE ); 
break; 

case WM_COMMAND: 
switch ( wParam ) 

{ 

case IDCANCEL: /* for ESC */ 


SuperSound 

LOW-COST, EASY - WORK IN EXTENDED DOS TOO! 

Digital Audio Authoring 

DCftRp"i| ( , • 

- if Tools > > 100 KHz 

i S Sampling Rate 



GUI Editors $19 to $149 


i Stereo / Mono Hardware and 
Software Kits - only $254 / $179 


Developers for Windows 3.0 / DOS 
Create Sounds for SoundBlaster, Covox, 
Disney; Import Mac, Amiga Sounds... 

DLLs, C, Turbo C, C + + , Visual Basic, Quick Basic Tools 
Data Compression / Decompression of 8:6, 8:4, 8:2, 8:1... 


IBM-PC DIGITAL VOICE / SOUND 


from only $20 


User’s Player Module 
Printer Port Audio D/A 


$218 - $629 


Developer's 

HW/SWKits 


Pro Quality Software / Hardware 
- in use worldwide, even Japan! 

30 Day Money-Back Guarantee if not Satisfied 
JUST LIKE HAVING A CASSETTE TAPE RECORDER IN A PC. 
Fastest, easiest Editors with the most features for the price. 

Quick, simple hardware / software installation. 

Use for Foreign Language training / communications. 

For Business: Training, Slide Shows - with Grasp, ShowPartner FIX, and others. 
For Engineering: Function Generators, Clear Voice Alarms, Storage Scope... 
Complete Technical Support: Help on Digital Audio HW/SW - no extra charge. 
by Silicon Shack Ph:408-446-4521 FAX: 408-446-5196 

5120 Campbell Ave. #112, San Jose, CA 95130. 

Technical Info./Orders: 800-969-4411 

Ask for FREE PRODUCT CATALOG. 

In Far East: Bayware Japan, Inc. Tel:(03)972-5391 FAX: (03)959-1214 

OEM Developers: Add QUALITY audio hardware to your product 


SuperSound, SoundFX. SoundCard ai 


marks of Silicon Shack, I. 


□ Request 102 on Reader Service Card □ 


case IDD_PAGE1: 




ShowDlgPage( 

hDlg, 

1, 

FALSE ) 

ShowDlgPage( 

hDlg, 

2, 

FALSE ) 

ShowDlgPage( 

hDlg, 

0 , 

TRUE ); 

break; 




case IDD_PAGE2: 




ShowDlgPage( 

hDlg, 

0 , 

FALSE ) 

ShowDl gPage( 

hDlg, 

2, 

FALSE ) 

ShowDlgPage( 

hDlg, 

1 , 

TRUE ); 

break; 




case IDD_PAGE3: 




ShowDlgPage( 

hDlg, 

0 , 

FALSE ) 

ShowDlgPage( 

hDlg, 

1 , 

FALSE ) 

ShowDlgPage( 

hDlg, 

2, 

TRUE ); 

break; 





default: 

fReturn = FALSE; 
break; 

) 

break; 

default: 

fReturn » FALSE; 
break; 

) 

return ( fReturn ); 


/* 

* This is the modeless dialogbox function. 
*/ 

BOOL FAR PASCAL ModelessDlgProc( 

HWND hDlg, 

WORD wMsg, 

WORD wParam, 

LONG lParam 

) 


BOOL fReturn; 

POINT pt; 

HANDLE hlnst; 

RECT rc; 


fReturn = TRUE; 

switch ( wMsg ) 

{ 

case WMJNITDIAL0G: 

hlnst = GetWindowWord( hDlg, GWW_HINSTANCE ); 
GetWindowRect( GetDlgItem(hDlg,IDD_LEFT), &rc ); 
ScreenToClient( hDlg, (LPP0INT)&rc.left ); 
pt.x * rc.left; 
pt.y « rc.top; 

CreatedgPage( hDlg, hlnst, "LEFT-1", pt.TRUE ); 
CreateDlgPage( hDlg, hlnst, "LEFT-2", pt,FALSE); 
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Listing 2 —Cont’d 

GetWindowRect( GetDlgItem( hDlg,IDD_RIGHT),&rc ); 
ScreenToClient( hDlg, (LPPOINT)&rc.left ); 
pt.x ■ rc.left; 
pt.y * rc.top; 

CreateDlgPage( hDlg, hlnst, "RIGHT-1", pt.TRUE ); 
CreateDlgPage( hDlg, hlnst, "RIGHT-2", pt,FALSE); 
break; 

case WM_COMMAND: 
switch ( wParam ) 

{ 

case IDCANCEL; /* for ESC */ 

DestroyWindow( hDlg ); 
break; 

case IDD LEFT1: 


ShowDlgPage( hDlg, 

1, 

FALSE ); 

ShowDlgPage( hDlg, 

0, 

TRUE ); 

break; 



case IDDLEFT2: 



ShowDlgPage( hDlg, 

0, 

FALSE ); 

ShowDlgPage( hDlg, 

1. 

TRUE ); 

break; 



case I0D_RIGHT1: 



ShowDlgPage( hDlg, 

3, 

FALSE ); 

ShowDlgPage( hDlg, 

2, 

TRUE ); 

break; 



case IDD_RIGHT2: 



ShowDlgPage( hDlg, 

2. 

FALSE ); 

ShowDlgPage( hDlg, 

3, 

TRUE ); 

break; 




) 

break; 


case WM_ACTIVATE: 

hwndModeless = wParam ? hDlg : 0; 
break; 

case WM_DESTROY: 

EndDlgPage( hDlg ); 
break; 

default: 

fReturn = FALSE; 
break; 

) 

return ( fReturn ); 


/* End of File */ 


/* 

Listing 3 (tstpage.h) 

* Author: 

Kanhom Ng 

★ 

Kansmen Corporation 

★ 

P.0. Box 391176 

★ 

Mountain View, CA 94039 

* 

* 

CompuServ - 70702,2365 

* Date: 

12/09/91 

* Version: 

1.0 

* Compiler: 

Microsoft C 6.00A 

* OS: 

* 

*/ 

Windows 3.0 



Listing 3 

—Cont’d 

Idefine 

IDM MODAL 

100 

Idefine 

IDM_MODELESS 

101 

Idefine 

IDD PAGEl 

520 

Idefine 

IDD PAGE2 

521 

Idefine 

IDD_PAGE3 

522 

Idefine 

IDD LEFT 

120 

Idefine 

IDD RIGHT 

121 

Idefine 

IDD LEFT1 

122 

Idefine 

IDD LEFT2 

123 

Idefine 

IDD RIGHT1 

124 

Idefine IDD RIGHT2 
/* End of File */ 

125 



Listing 4 (tstpage.rc) 

/* 

* Author: 

Kanhom Ng 


Kansmen Corporation 

* Date: 

12/09/91 

* Compiler: 

Microsoft C 6.00A 

* OS: 

Windows 3.0 

* Copyright (C) 1991 Kanhom Ng. All rights reserved. 

linclude <windows.h> 

linclude "tstpage.h" 

MAIN MENU 


BEGIN 


POPUP 

"ADialog" 

BEGIN 


MENUITEM 

"AModal" IDM MODAL 

MENUITEM 

"Mode&less" IDM MODELESS 

END 


END 


TEST1 DIALOG 74, 51, 203, 134 

STYLE DS MODALFRAME j WS POPUP 1 WS VISIBLE 1 

WS CAPTION 

| WS SYSMENU 

CAPTION "Modal 

( 3 page )" 

BEGIN 


PUSHBUTTON 

"Page 1", IDD PAGE1, 148, 40, 40, 14 

PUSHBUTTON 

"Page 2", IDD PAGE2, 148, 60, 40, 14 

PUSHBUTTON 

"Page 3", IDD PAGE3, 148, 80, 40, 14 

DEFPUSHBUTTON "Cancel", IDCANCEL, 148, 10, 40, 14 

END 


PAGEl DIALOG 96, 54, 160, 100 

STYLE DS MODALFRAME 

BEGIN 


LTEXT 

"Item 1 &A", 201, 6, 8, 36, 8 

EDITTEXT 

203, 54, 8, 32, 12, ES AUTOHSCROLL 

LTEXT 

"Item 1 &B", 202, 6, 32, 38, 8 

EDITTEXT 

204, 54, 32, 32, 12, ES AUTOHSCROLL 

LTEXT 

"Item 1 &C", 205, 6, 54, 38, 8 

EDITTEXT 

206, 54, 54, 32, 12, ES AUTOHSCROLL 

LTEXT 

"Item 1 &D", 207, 6, 78, 34, 8 

EDITTEXT 

208, 54, 76, 32, 12, ES AUTOHSCROLL 

END 


PAGE2 DIALOG 96, 54, 160, 100 

STYLE DS MODALFRAME 

BEGIN 


LTEXT 

"Item 2 &A", 201, 6, 8, 36, 8 

EDITTEXT 

203, 54, 8, 32, 12, ES AUTOHSCROLL 

LTEXT 

"Item 2 &B", 202, 6, 32, 38, 8 

EDITTEXT 

204, 54, 32, 32, 12, ES AUTOHSCROLL 

LTEXT 

"Item 2 &C", 205, 6, 54, 38, 8 

EDITTEXT 

206, 54, 54, 32, 12, ES AUTOHSCROLL 

END 


PAGE3 DIALOG 96, 54, 160, 100 

STYLE DS MODALFRAME 

BEGIN 


LTEXT 

"Item 3 &A", 201, 6, 8, 36, 8 

EDITTEXT 

203, 54, 8, 32, 12, ES AUTOHSCROLL 

LTEXT 

"Item 3 &B", 202, 6, 32, 38, 8 

EDITTEXT 

204, 54, 32, 32, 12, ES AUTOHSCROLL 

END 
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ShowDlgPagef) and EndDlgPageO 

The last two functions are much simpler than CreateDlg- 
Page(). ShowDlgPagef) goes through the list of controls in the 
specified page and calls ShowUindowf) to show or hide all the 
controls. EndDlgPagef) frees all the memory used for the in¬ 
stance data and calls RemovePropf) to remove the property 
that was used. Both functions call GetPropf) to retrieve the 
instance handle. 


Conclusion 

Listing 2 ( tstpage.c) contains a program to demonstrate 
the multi-page dialog box functions. To compile this program, 
you also need the header file in Listing 3 (tstpage.h), the 
resource compiler file in Listing 4 (tstpage.rc), and the 
module definition file in Listing 5 (tstpage.def). Listing 6 
l/nakefile.mak) contains a Polymake makefile to build the 
demonstration program. 

You'll find that using multiple-page dialog boxes can solve 
your dialog box problems and make your dialog box more 
presentable. □ 


Listing 4 — Cont’d 


BASE DIALOG 68, 41, 210, 132 

STYLE DS MODALFRAME | WS POPUP | WS VISIBLE | WS CAPTION | WS SYSMEI 
CAPTION "Modeless (2x2 page )" 

BEGIN 

"Left-Paging-Area", IDO LEFT, 2, 0, 73, 129 
"Right-Paging-Area", IDO RIGHT, 79, 0, 73, 129 
"Left-1", IDD LEFT1, 160? 7, 40, 14 
"Left-2", ID0“LEFT2, 161, 28, 40, 14 
"Right-1", IDO RIGHT1, 161, 58, 40, 14 
"Right-2", IDD”RIGHT2, 162, 81, 40, 14 
END 


GR0UPB0X 

GR0UPB0X 

PUSHBUTTON 

PUSHBUTTON 

PUSHBUTTON 

PUSHBUTTON 


LEFT-1 DIALOG 86, 77, 160, 100 

STYLE DS_MODALFRAME 

BEGIN 

CONTROL "Check-1", 201, "Button" 
CONTROL "Check-2", 202, "Button", 
END 

LEFT-2 DIALOG 82, 67, 160, 100 

STYLE DS_MODALFRAME 

BEGIN 

CONTROL "Check-3", 301, "Button" 
CONTROL "Check-4", 302, "Button", 
END 


BS_AUTOCHECKBOX | WS_TABSTOP, 9, 20, 40, 10 
BS_AUTOCHECKBOX | WS_TABSTOP, 10, 40, 40, 10 


BS_AUTOCHECKBOX | WS TABSTOP, 9, 60, 40, 10 
BS_AUTOCHECKBOX | WS_TABSTOP, 11, 80 , 40, 10 


RIGHT-1 DIALOG 102, 67, 160, 100 

STYLE DS_MODALFRAME 

BEGIN 

CONTROL "Radio-1", 401, "Button", BS AUTORADIOBUTTON, 6, 20, 39, 10 
CONTROL "Radio-2", 402, "Button", BS^AUTORADIOBUTTON, 6, 40, 39, 10 
END 


RIGHT-2 DIALOG 57, 60, 160, 100 

STYLE DS MODALFRAME 

BEGIN 

CONTROL "Radio-3", 501, "Button" 
CONTROL "Radio-4", 502, "Button" 
END 


BS_AUTORADIOBUTTON, 9, 60, 39, 10 
BSJ\UTORADIOBUTTON, 9, 80, 39, 10 



Listing 5 (tstpage.def) 

;* Author: 

• ★ 

Kanhom Ng 

Kansmen Corporation 

» 

;* Date: 

12/09/91 

» 

;* Compiler: 
;* OS: 

Microsoft C 6.00A 

Windows 3.0 

* 

;* Copyright 

• * 
t 

(C) 1991 Kanhom Ng. All rights reserved. 

NAME 

DESCRIPTION 

EXETYPE 

STUB 

TstPage 

'General Test Apps 1 

WINDOWS 

'WINSTUB.EXE 1 



Listing 5 —Cont’d 

CODE 

MOVEABLE DISCARDABLE LOADONCALL 

DATA 

MOVEABLE MULTIPLE 

HEAPSIZE 

128 

STACKSIZE 

4096 

EXPORTS 


TestWndProc 

ModalDlgProc 

ModelessOlgProc 


Listing 6 (makefile.mak) 


#* 

#* Author: 

Kanhom Ng 

#* 

Kansmen Corporation 

#* 

#* Date: 

12/09/91 

#* 

#* Compiler: 

Microsoft C 6.00A 

#* OS: 

Windows 3.0 

#* 

#* Make: 

Polymake V3.2 

#* 

0BJ01=tstpage.obj pagedlg.obj 

.MEMSWAP * cl 

rc link 

.c.obj: 
cl -c -AM 

-Gw -Ost -Zep -W3 $*.( 


. rc.res: 

rc -r $*.rc 

# target list 

# . 

tstpage.exe: $(0BJ01) $*.def $*.res 

link /NOD/NOE $(0BJ01), $*.exe,NUL,libw mlibceW, $*.def 
rc $*.res $*.exe 

tstpage.res: $*.rc $*.h 

tstpage.obj: $*.c $*.h 

pagedlg.obj: $*.c 
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Graphical User Interfaces 



Colorizing 

Windows 

Doug Overmyer 



K.I.S.S. - keep it simple, stupid - is a great idea for 
programmers but one that we can probably forget about 
in the nineties. More than ever, software's job is to please 
as well as to function; who has not noticed the "cold 
steel" look of recent Borland offerings, the subtle textures 
infusing PC Tools, or the mile-long icon bars decorating Lotus 
products? The best of these efforts combine functionality and 
visual appeal - the icons reflect the most needed functions 
without disrupting the keyboard work, and the textures enhance 
the visual organization of information and reinforce the grouping 
of related items. It's a beautiful world - but programming these 
custom controls and backgrounds can be a bear. 


Doug Overmyer has a Ph.D. from Princeton University in 
Renaissance Reformation historg. He has worked for the 
federal government as an applications programmer for ten 
years. He lives with his wife, Elizabeth, in the San Francisco 
Bay area. You can contact Doug on CompuServe at 71021, 2535. 
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Listing 1 (toolbar.pas) 

program Tool Bar; 

{$R ToolBar.RES} 

uses WinTypes, WinProcs, WObjects, StdDlgs,Strings,StdWnds,Icons; 
const 

TB_Name = 'ToolBar Demo'; 
idm_TBChange « 301; 
idm_TBShowHide=302; 
um_ReSize = 401; 
idJGl = 600; 

id_Iconl * 601; 

id_Icon2 « 602; 

id_Icon3 * 603; 

id_Icon4 = 604; 

id_Icon5 * 605; 

id_Icon6 « 606; 

id_Icon7 = 607; 

id_Icon8 = 608; 

bs_Custom = 99; 

IWidth - 32; 

types ★*★★★*★★*★★★★*★***★*★★**★**★★*1 

type 

TTBApp = object(TApplication) 
procedure InitHainWindow; virtual; 
end; 

PTBToolBar - A TTBToolBar; 

TTBToolBar = object(TWindow) 

Icon:Array[0..8] of Picon; 

IGlrPIconGroup; 

Orientation:Integer; 

constructor Init(AParent:PWindowsObject;ATitle:PChar); 
destructor Donejvirtual; 

procedure WMDrawItem(var Msg:TMessage);virtual wm_First+wm_DrawItem; 
procedure UMReSize(var Msg: TMessage); virtual wm_User + um_ReSize; 
procedure WMCommand(Var Msg:TMessage);virtual wm_First+wm_Command; 
procedure WMNCLButtonDblClk(var Msg:TMessage);virtual wm_First+ 
wm_NCLButtonDblClk; 
procedure ToggleOrientation; 
end; 

PTBWindow » ^TTBWindow; 

TTBWindow = object(TWindow) 

ToolBar:PTBToolBar; 

TheBrush:HBrush; 

lbColor:TColorRef; 

Colorlndxilnteger; 

1bStyle,1bHatch:Integer; 
constructor Init(ATit1e: PChar); 
destructor Done; virtual; 
procedure SetupWindow;virtual; 

procedure WMSize(var Msg: TMessage); virtual wm_First + wm_Size; 
procedure IDIconl(Var Msg:TMessage);virtual wm_User+id_Iconl; 
procedure IDIcon2(Var Msg:TMessage)jvirtual wm_User+id_Icon2; 
procedure IDIcon3(Var Msg:TMessage);virtual wm_User+id_Icon3; 
procedure IDIcon4(Var Msg:TMessage);virtual wm_User+id_Icon4; 
procedure IDIcon5(Var Msg:TMessage);virtual wm_User+id_Icon5; 
procedure IDIcon6(Var Msg:TMessage);virtual wm_User+id_Icon6; 
procedure IDIcon7(Var Msg:TMessage);virtual wm_User+id_Icon7; 
procedure IDIcon8(Var Msg:TMessage);virtual wm_User+ID_Icon8; 
procedure RedrawBkGndjvirtual; 

procedure WMSysCommand(var Msg:TMessage);virtual wm_First+wm_SysCommand; 
end; 

|********************** 6L0BALS ★*★********★**★***★★*★★*★★*★*★} 
var 

MainWin:PTBWindow; 

{********************** methods ★*****★★★***★★*★★★******★***★★1 

procedure TTBApp.InitMainWindow; 
begin 

MainWindow :* New(PTBWindow, Init(TB_Name)); 

MainWin := PTBWindow(MainWindow); 
end; 

TPW Floating Toolbar and Color Brushes 


toolbar.pas (Listing 1) illustrates a 
couple of techniques to enhance the 
look of programs without unduly com¬ 
plicating the process. Building on the 
Object Windows (OWL) class libraries, it 
sports a floating toolbar window with 
custom icons made from recycled radio 
buttons. These “golden oldies” of GUI 
programming are reborn as smart ob¬ 
jects that draw themselves when 
needed, know a wm_LButtonDown from 
a wm_LButtonUp message, and politely 
tell their neighbor when they are 
finished. Put eight of these buttons in a 
popup window, add a little code to in¬ 
crease their smarts, and you have a 
toolbar that just about takes care of it¬ 
self. 

To demonstrate the toolbar, I 
created a sample program. Several of 
the buttons in the sample program’s 
toolbar cause it to brush the back¬ 
ground of the main window with some 
built-in GDI patterns and custom 
brushes. A color icon button on the 
demonstration toolbar cycles through 
10 representative EGA colors - a bit of a 
trick when you come to the custom 
brush. Finally, the toolbar knows how 
to literally “jump through hoops” - just 
double click its title bar to toggle the 
orientation. Looking good is not the 
same as being good, but it is a start. 

Recycled Radio Buttons 

It may seem a bit odd to build a 
toolbar out of radio buttons, but if you 
ignore the way they look, you can see 
that they have much of the behavior 
toolbars need. They toggle each other 
on and off, notify their parent of chan¬ 
ges, and have an existing set of 
methods to trigger and respond to 
events. What they lack is the proper 
look. 

If you create your buttons with a 
bs_OwnerDraw style, you can give them 
whatever appearance you like. 
icons.pas (Listing 2) defines a TIcon 
descendant of the OWL TRadioButton 
object that knows how to draw itself. 
When you initialize a TIcon object, you 
pass it the name of a bitmap resource 
to draw on the button. Whenever the 
window manager needs to notify the 
object of a change, it sends a wm_Draw- 
Item message to the icon's parent. In 
turn the parent's UMDrawItem() method 
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Listing 1 — Cont’d 

|********************** TJBWindow ***********************★*******} 

constructor TTBWindow.Init(ATitle: PChar); 

begin 

TWindow.Init(nil, ATitle); 
with Attr do 
begin 

X := 50; Y := 50; W :* 500; H := 300; 
end; 

Tool Bar := New(PTBToolBar,Init(@Self,'Tools')); 

TheBrush := 0; 
lbColor := RGB(0,0,0); 
lbStyle := bs_Solid; 
lbHatch := hs_Vertical; 

Colorlndx := 0; 
end; 

destructor TTBWindow.Done; 
var 

Msg:TMessage; 

begin 

TWindow.Done; 
if TheBrush <> 0 then 
DeleteObject(TheBrush); 

end; 

procedure TTBWindow.SetupWindow; 
var 

SysMenu:HMenu; 

begin 

TWindow.SetupWindow; 

SetCl assWord(HWi ndow,GCW_HIcon,LoadIcon(HInstance,'TB_Icon')); 
Sysmenu := GetSystemMenu(hWindow,false); 
AppendMenu(SysMenu,MF_Separator,0,nil); 

AppendMenu(Sysmenu,0,idm_TBChange,‘Flip Toolbar'); 

AppendMenu(Sysmenu,0,idm_TBShowHide,'Hide Toolbar'); 
if Tool Bar <> nil then 

SendMessage (Tool Bar''. HWi ndow,wm_User+um_Re$ize,0,0); 

end; 

procedure TTBWindow.WMSize(var Msg: TMessage); 
begin 

TWindow.WMSize(Msg); 

if ToolBar <> nil then (optional follow-along) 
SendMessagefToolBar^.HWindow,wm_User+um_ReSize,0,0); 

end; 

procedure TTBWindow.IDIconl(var Msg:TMessage); 
begin 

lbHatch := hs_Vertical; 
lbStyle := bs_Hatched; 

RedrawBkgnd; 

end; 

procedure TTBWindow.IDIcon2(var Msg:TMessage); 
begin 

lbHatch := hs_BDiagonal; 
lbStyle := bs_Hatched; 

RedrawBkgnd; 

end; 

procedure TTBWindow.IDIcon3(var Msg:TMessage); 
begin 

lbHatch := hs_Cross; 
lbStyle := bs_Hatched; 

RedrawBkgnd; 

end; 

procedure TTBWindow.IDIcon4(var Msg:TMessage); 
begin 

lbHatch := hs_DiagCross; 
lbStyle := bs_Hatched; 

RedrawBkgnd; 

end; 



Graphics Interface (TGI) 

CGA, Hercules, EGA, VGA, VGA X mode 
and SuperVGA. 256colors. 800 x 600& 
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Font editor & Icon editor 
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Graphical User Interface (GUI) 

Fast, flexible and easy to use. Includes 
menus, mouse support, buttons, file 
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ordinates and much, much more. Struc¬ 
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TEGL Windows Toolkit: 
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Listing 1 — Cont'd 


procedure TTBWindow.IDIcon5(var Msg:TMessage); 
var 

LogBrush:TLogBrush; 

begin 

lbStyle := bs_Solid; 

RedrawBkGnd; 

end; 

procedure TTBWindow.IDIcon6(var Msg:TMessage); 
var 

DC,MemDC:HOC; 

NewBmp,Bmp,01dBmp:HBitmap; 
NewBrush,01d8rush,MonoBrush:HBrush; 
begin 

if TheBrush > 0 then 

DeleteObject(TheBrush); 

Bmp :=LoadBitmap(HInstance,'TB_Brush'); 
MonoBrush :=CreatePatternBrush(Bmp); 

DC := GetDC(HWindow); 

NewBMP := CreateCompatibleBitmap(DC,8,8); 
MemDC := CreateCompatibleDC(DC); 
SetTextColor(MemDC,lbColor); 

OldBrush := SelectObject(MemDC,MonoBrush); 
OldBmp := SelectObject(MemDC,NewBmp); 

PatBlt(MemDC,0,0,8,8,PatCopy); 
SelectObject(MemDC,OldBmp); 
SelectObject(MemDC,OldBrush); 
DeleteObject(MonoBrush); 

TheBrush := CreatePatternBrush(NewBMP); 
DeleteObject(Bmp); 

DeleteObject(NewBmp); 


traps these messages and calls the 
Draw Item/) function of the appropriate 
icon. 

The trick is to figure out how to 
draw the icon. Typically, iconbars are 
used to select various modes in a pro¬ 
gram and, unlike radio buttons, must 
reflect the current mode even when 
other objects receive the input focus. 
Tlcon accomplishes the visual part by 
shifting the bitmap two pixels over and 
down and drawing different highlights 
for the edges, but it needs some help in 
deciding when to do this. Standard 
radio buttons are helped by a group 
box that mediates the selection and 
deselection process. I derive an object 
that inherits TGroupBox's behavior and 
adapt it to maintain the bitmapped 
icons. 

TGroupBox overrides the Select ion - 
Changed() method in order to get con¬ 
trol when the user selects an icon in 
the toolbar. At that point, the new 
SelectionChangedf) code takes care of 
disabling the previous icon selection, if 
any. The group box and the radio buttons 
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Listing 1 — Cont’d 

DeleteDC(MemDC); 

ReleaseDC(HWindow.DC); 
lbStyle := bs_Custom; 

SetClassWord(HWindow,GCW_HBrBackGround,TheBrush); 
InvalidateRect(HWindow,nil .True); 
end; 

procedure TTBWindow.IDIcon7(var Msg:TMessage); 
begin 

Inc(Colorlndx); 

If Colorlndx > 9 then Colorlndx := 0; 
case Colorlndx of 

0:lbColor : = RGB(0,0,0); 
lilbColor := RGB(0,0,255); 

2:lbColor := RGB(255,0,0); 

3:lbColor := RGB(255,0,255); 

4:lbColor := RGB(0,255,0); 

5:lbColor := RGB(0,255,255); 

6;lbColor := RGB(255,255,0); 

7:lbColor := RGB(255,255,255); 

8:lbColor RGB(192,192,192); 

9:lbColor : = RGB(128,128,128); 

end; 

RedrawBkGnd; 

end; 

procedure TTBWindow.IDIcon8(var Msg:TMessage); 
begin 

CloseWindow; 

end; 

procedure TTBWindow.RedrawBkGnd; 
var 

LogBrush:TLogBrush; 

begin 

if lbStyle * bs_Custom then 
begin 

SendMessage(HWindow,wm_User+id_Icon6,0,0); 

exit; 

end; 

if TheBrush > 0 then 
DeleteObject(TheBrush); 

LogBrush.lbStyle := lbStyle; 

LogBrush.lbColor := lbColor; 

LogBrush.lbHatch := lbHatch; 

TheBrush := CreateBrushlndirect(LogBrush); 
SetClassWord(HWindow,GCW_HBrBackGround,TheBrush); 

InvalidateRect(HWindow,nil .True); 
end; 

procedure TTBWindow.WMSysCommand(var Msg:TMessage); 
var 

Ret:Boolean; 

SysMenu:HMenu; 

begin 

case Msg.Wparam of 
idm_TBChange: 
begin 

ToolBar^.ToggleOrientation; 
if Tool Bar <> nil then 

SendMessage(ToolBar A .HWindow,wm_User+um_ReSize,0,0); 
end; 

idm_TBShowHide: 

begin 

Sysmenu := GetSystemMenu(hWindow,false); 
if IsWindowVisibleCToolBar^.HWindow) then 
begin 

ShowWi ndow(Toolbar^.HWindow,sw_Hide); 

ModifyMenu(Sysmenu,idm_TBShowHide,mf_ByCommand+mf_String, 
idm_TBShowHide,'Show Toolbar'); 
end 
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jointly manage the toolbar. Each in¬ 
dividual icon (button) decides when it is 
selected (via the wm_DrawItem message) 
and draws itself in the active state, 


while the group box detects selection 
changes and uses that event to 
deselect the previous icon selection. 


Listing 1 — Cont’d 


else 

begin 

ShowWindow(ToolBar^.HWindow,sw_Normal); 

ModifyMenu(Sysmenu,idm_TBShowHide,mf_ByCoimand+mf_Stri ng, 
idm_TBShowHide,'Hide Toolbar'); 
end; 
end; 
else 

DefWndProc(Msg); 

end; 

end; 

|********★★★★★*★**★**★** TTBToolBar ****************************] 
constructor TTBTool Bar.Init(AParent:PWindowsObject;ATitle:PChar); 

Const 

BMP:Array[0. .8] of PChar = (",'TB Tool 1','TB_Tool 2','TB_Tool 3','TB Tool4', 

'TB_Tool 5', 'TB_Tool6','TB_Tool7'7'TB_Tool8'); 
var 

Indx:Integer; 

Buf:Array[0..8] of Char; 
begin 

TWindow.Init(AParent,Atitie); 

Attr.Style :=> ws_PopUpWindow or ws_Visible or ws_Caption; 

Orientation := 0; 

For Indx := 0 to 8 do Iconflndx] := nil; 

IG1 := New(PIconGroup,Init(@Self,id_IGl," ,0,0,IWidth*4,IWidth*2)); 

For Indx := 1 to 8 do 

I con[Indx] := New(PIcon,Init(@Self,Indx+600,'',0,0,1Width,IWidth.IGl.BMP[Indx])); 

end; 

destructor TTBTool Bar.Done; 
begin 

TWindow.Done; 

MainWin^ToolBar := nil; 
end; 

procedure TTBToolBar.UMReSize(var Msg:TMessage); 
var 

CR:TRect; 

aPt:TPoint; 

Indx:Integer; 

begin 

GetClientRect(Parent'\HWindow,CR); 
aPt.X := CR.Right;aPt.Y := CR.Top; 

Cl ientToScreen (Parent''. HWi ndow, aPt); 
if Orientation = 0 then 
begin 

SetWindowPos(HWindow,0,aPt.X-129,aPt.Y,129, 

GetSystemMetrics(sm_CYSize)+67,swp_NoZ0rder); 
for Indx := 1 to 4 do 

MoveWindow(Icon[Indx] / '.HWindow,IWidth*(Indx-1),0,IWidth,IWidth,False); 
for Indx := 5 to 8 do 

MoveWindow(Icon[Indx] / '.HWindow,IWidth*(Indx-5).IWidth,IWidth,IWidth,False); 
MoveWindow(IGl A .HWindow,0,0,IWidth*(4),IWidth*2,True); 
end 
else 
begin 

SetWindowPos(HWindow,O.aPt.X-66,aPt.Y,66, 

GetSystemMetrics(sm_CYSize)+129,swp_NoZOrder); 
for Indx := 1 to 2 do 

MoveWindow(Icon[Indx]''.HWindow,IWidth*(Indx-1),0,IWidth,IWidth,False); 
for Indx := 3 to 4 do 

MoveWindow(Icon[Indx] / '.HWindow,IWidth*(Indx-3).IWidth,IWidth,IWidth,False); 
for Indx := 5 to 6 do 

MoveWindow(Icon[Indx] / '.HWindow,IWidth*(Indx-5),IWidth*2,IWidth,IWidth,False); 
for Indx := 7 to 8 do 

MoveWindow(Icon[Indx] ''.HWindow,IWidth*(Indx-7),IWidth*3,IWidth,IWidth,False); 
MoveWindow(IG1 A .HWindow,0,0,IWidth*2,IWidth*4,True); 
end; 


The Toolbar Window 

The program’s main window creates 
its iconbar as a pop-up window. It 
defines a TTBToolBar window object 
that contains three specialized data 
members: 

• ICON: an array of Picon pointers 

• IG1: a pointer to a PIconGroup 

• Orientation: a flag 

The array of pointers lets you sys¬ 
tematically address the icons, the group 
box supports the visual highlighting, and 
Orientation remembers the arrange¬ 
ment of the icons, horizontal or vertical. 
NMDrawItem() is the most important 
method; it uses a computed index to 
call the Drawltem() method of the cor¬ 
rect icon. The rest of the methods build 
upon this basic behavior to add a 
couple of tricks and simplify the overall 
programming task. 

When you click on one of the icons 
in the toolbar, OWL obediently sends a 
message to that icon's parent, the tool¬ 
bar window. Ideally, you would like to 
forward the message to the main win¬ 
dow, where responsibility for controlling 
the overall application naturally lies. The 
MCommand() method of the toolbar 
window intercepts all the wm_Conrnand 
messages, forwards the TIcon mes¬ 
sages as user-defined messages to the 
main window, and calls the default 
processing for the rest. This indirection 
puts the response methods for the 
icons in the main window, where they 
belong. 


Figure 1 



Monochrome Bitmap for Color Brush 
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The UMReSizef) method controls the 
location and orientation of the iconbar. 
Depending upon the value of Orienta¬ 
tion, it calculates a window size based 
upon the desired icon arrangement, 
calls SetWindowPositionf) to move 
and resize the iconbar window, and 
then moves the individual icons into 
place. The UMNCLButtonDblClkQ 
method intercepts the double clicks on 
the title bar, toggles the Orientation 
field, and sends a um_ReSize message 
to itself. The result is a quick per¬ 
sonality change for the iconbar, at little 
cost. 

The Colorized Brushes 

toolbar.pas also lets you experi¬ 
ment with some of the possibilities for 
coloring the background of your win¬ 
dows with brushes. The first four icons 
in the toolbar use built-in patterns 
available from the GDI manager. In all, 
there are six hatch styles available as 
hs_xxxxxx constants that you can use 
to construct brushes. The simplest way 
is to call CreateHatchBrush(), passing 
it a hatch style constant and a color. 
toolbar.pas uses a slightly more 
general API call, CreateBrush- 
Indirectf), that lets you create solid 
as well as patterned brushes, but the 
result is the same. Unfortunately, the 
brushes are not very subtle and are 
mostly unsuitable for coloring the back¬ 
grounds of windows. 

toolbar.pas’s sixth icon activates a 
custom brush based upon a bitmap 
stored as a resource, and it offers the 
greatest freedom in “colorizing" your 
windows. The easiest approach is to 
create a bitmap pattern (usually 8 by 8) 
using a resource editor such as 
SDKPaint, The Whitewater Resource 
Toolkit, or Borland's Resource Workshop 
(Figure 1). If you create a color bitmap, 
the resulting brush will inherit the same 
color. If you create a monochrome bit¬ 
map, you can add the colors at runtime 
from within your code, toolbar, res (on 
the code disk) contains the bitmaps and 
icon that toolbar.pas uses. 

Runtime Color Brushes 

IDIcon6() in toolbar.pas shows 
how to carry out this runtime color 
selection. Before entering the method, it 
is necessary to establish a color value 
for IbColor. The procedure first loads a 
monochrome bitmap resource and uses 


it to create a monochrome brush Mono- 
Brush. Next IDIcon6() gets a device 
context and creates an 8 by 8 com¬ 
patible bitmap (NewBMP). The 8 by 8 


dimension refers to the logical size of 
the bitmap-, the actual configuration 
depends on the hardware and mode of 
the current Windows session. If Windows 


Listing 1 — Cont’d 

SetFocus(Parent A .HWindow); 
end; 

procedure TTBToolBar.WMDrawItem(var Msg:TMessage); 
var 

PDIS : A TDrawItemStruct; 
begin 

PDIS :=■ Pointer(Msg.lParam); 
case PDIS / '.Ct1Type of 
odt_Button: 
case PDIS A .CtlID of 

id_Iconl..id_Icon8:Icon[PDIS A .CtlID-600] A .Drawltem(Msg); 
end; 
end; 
end; 

procedure TTBToo1Bar.WMCommand(var Msg:TMessage); 
begin 

TWindow.WMCommand(Msg); 
case Msg.WParam of 

id_Iconl..id_Icon8:SendMessage(Parent A .HWi ndow, 
wm_User+Msg.Wparam,0,0); 

end; 

end; 

procedure TTBToolBar.WMNCLButtonDblClk(var Msg:TMessage); 
begin 

ToggleOrientation; 

SendMessage(HWindow,wm_User+um_ReSize,0,0); 
end; 

procedure TTBToolBar.ToggleOrientation; 
begin 

If Orientation = 1 then Orientation := 0 else Orientation := 1; 
end; 

|********************** MainLine *******************************j 
var 

TBApp: TTBApp; 
begin 

TBApp.Init(TB_Name); 

TBApp.Run; 

TBApp.Done; 
end. 

( End of File ) 


Listing 2 (icons.pas) 

unit ICONS; 

|************************ interface ***********************j 
interface 

uses WinTypes, WinProcs, WinDos, Strings, WObjects; 
type 

Picon = A TIcon; 

TIcon = object(TRadioButton) 

HBmp :HBitmap; 

State:Integer; 

constructor Init(AParent:PWindowsObject; AnID:Integer;ATitle:PChar; 

X,Y,W,H:Integer;AGroup:PGroupBox;BMP:PChar); 
destructor Donejvirtual; 
procedure Drawltem(var Msg:TMessage);virtual; 
end; 

PIconGroup = A TIconGroup; 

TIconGroup = object(TGroupBox) 

_Icon and Groupbox Code for Floating Toolbars 
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Listing 2 — Cont’d 


01dIcon:PIcon; 

01dIconID:Integer; 

constructor Init(AParent:PWindowsObject;AnID:Integer;AText:PChar; 
X,Y,W,H:Integer); 

procedure SelectionChanged(NewIconID:Integer);virtual; 
end; 


|************************ implementation ★★*★★*★***★***★******★j 

implementation 

const 

sr_Depressed ■ 1; 
sr_Raised ■ 0; 

|* ****** ***************** QrawHiLitos ****************************j 
function DrawHilites(PaintDC:hDC;Xl,Yl,X2,Y2,LW,State:Integer):Boolean; 
var 

LPts,RPts:Array[0..2] of TPoint; 

Penl,Pen2,01dPen:HPen; 

Ofs,W,H:Integer; 

01dBrush:HBrush ; 
begin 

Penl := CreatePen(ps_Solid,1,$00000000); {Draw a surrounding blk frame) 
OldPen := SelectObject(PaintDC,Penl); 

OldBrush : = SelectObject(PaintDC,GetStockObject(null_Brush)); 

Rectangle{PaintDC,Xl,Yl,X2,Y2); 

SelectObject(PaintDC,OldPen); 

SelectObject(PaintDC,OldBrush); 

DeleteObject(Penl); 

Ofs :« Byte(State = sr_Depressed) * lw; 


LPts [0].x 
LPtsfl] .x 
LPts [2] .x 
RPtsfoj .x 
RPts[1] .x 
RPts [ 2 ] .x 
if State > 
begin 
Penl :* 
Pen2 := 
end 
else 
begin 
Penl := 
Pen2 := 
end; 


= Xl+Ofs; 

LPts[0] .y := Y2-0fs; 

■= Xl+Ofs; 

LPtsfl].y := Yl+Ofs; 

= X2-0fs; 

LPts[2] .y := Yl+Ofs; 

= Xl+Ofs; 

RPtsfo].y := Y2-0fs; 

= X2-0fs; 

RPtsj -y :■ Y2-0fs; 

= X2-0fs; 

RPts[ 2 ].y := Yl+Ofs; 

sr_Raised 

then 


CreatePen(ps_Solid,LW,$00FFFFFF); 
CreatePen(ps_Solid,LW,$00000000); 


CreatePen(ps_Solid,LW,$00000000); 
CreatePenfps Solid,LW,$00FFFFFF); 


OldPen : = SelectObject(PaintDC,Penl); {Draw the highlights) 
PolyLine(PaintDC,LPts,3); 

Select0bject(PaintDC,Pen2); 

DeleteObject(Penl); 

PolyLine(PaintDC,RPts,3); 

SelectObject(PaintDC,OldPen); 

Delete0bject(Pen2); 
end; 


^********************* TIcon *****************************j 
constructor TIcon.Init(AParent:PWindowsObject; AnID:Integer;ATitie:PChar; 
X,Y,W,H:Integer;AGroup:PGroupBox;BMP:PChar); 

begin 

TRadioButton.Init(AParent,AnID,ATitle,X,Y,W,H,AGroup); 

Attr.Style := Attr.Style or bs_OwnerDraw; 

HBmp := LoadBitmap(HInstance.BMP); 

State := sr_Raised; 
end; 


destructor TIcon.Done; 
begin 

DeleteObject(HBmp); 
TRadioButton.Done; 
end; 


is running in 256-color mode, then the 
procedure creates a compatible 256- 
color bitmap. To finish the preparation, 
the code creates a compatible memory 
device context (W emDC) that it can use to 
manipulate the compatible bitmap. 

Before working on NewBMP, 
IDIcon6() selects MonoBrush into the 
MemDC and uses SetTextColorf) to set 
the text color. Then the code selects 
NewBMP into MemDC so that it becomes 
the “display surface" of the device con¬ 
text. Any drawing action you then take 
upon MemDC actually takes place on 
NewBMP. In fact, the code calls PatBlk() 
to brush the background of the device 
context with the currently selected 
brush. When the current brush is 
monochrome, PatBlk() uses the cur¬ 
rent text and background colors to in¬ 
terpret the monochrome pattern when 
carrying out the pattern brushing. Then 
the code deselects NewBMP and Mono- 
Brush from MemDC and deletes MemDC. 

You are left with NewBMP, which is a 
colorized version of the original 
monochrome bitmap resource. The last 
step is to call CreatePatternBrushf) 
once again, this time using the color 
bitmap to create an appropriate 
polychrome brush. Finally, IDIcon6() 
changes the window class using Set- 
ClassUord() and forces a redraw of the 
window to produce the custom-colored 
background. 

The possibilities are fairly broad 
within this scheme. Small monochrome 
resources add very little to the ex¬ 
ecutable size and they offer many ways 
to add a pleasing look to your back¬ 
grounds. By creating a compatible color 
brush at runtime, you can adapt to any 
Windows platform without needing to 
store multiple copies of each pattern 
and color. Dynamically coloring the pat¬ 
terns could allow users to choose their 
own colors - a feature that some will 
find very attractive. 

It's a Beautiful World 

toolbar.pas demonstrates two 
techniques for setting off your win¬ 
dows. Building on established OWL ob¬ 
jects, it adds a small amount of custom 
code to get just the toolbar it needs. 
Radio buttons are recycled into icons 
that communicate with each other via 
a custom group box and provide good 
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Listing 2 — Cont’d 

procedure TIcon.DrawItem(var Msg:TMessage); 
var 

TheDC,MemDC:HDc; 

01dBitMap:HBitMap; 

Offset:Integer; 

PDIS : A TDrawItemStruct; 

X,Y,W,H:Integer; 

DBU:LongRec; 

GKS:Integer; 
begin 

Longlnt(DBU) := GetDialogBaseUnits; 

PDIS := Pointer(Msg.lParam); 

GKS := GetKeyState(vk_LButton); 

If IsIconic(hWindow) then Exit; 
if (PDIS A .itemAction = oda_DrawEntire) then 

State := State 

else if (PDIS A .itemAction ■ oda_Select) and 
(PDIS A .ItemState = ods_Selected + ods_Focus) 
then State := sr_Depressed 
else if (PDIS A .itemAction = 2) and 
(PDIS A .ItemState = ods_Focus) and (GKS < 0) 
then State := sr_Raised 
else Exit; 

X := PDIS A .rcItem.left; Y := PDIS A .rcItem.top; 

W := PDIS A .rcItem.right-PDIS A .rcItem.left; 

H := PDIS A .rcItem.bottom-PDIS A .rcItem.top; 

Offset := Round((H) / (DBU.lo * 4)); 

MemDC := CreateCompatibleDC(PDIS A .HDC); 

OldBitMap := SelectObject(MemDC.HBMP); 

if State = 0 then BitBlt(PDIS A .HDC,X,Y,W,H, MemDC,0,0,SrcCopy) 
else BitBlt(PDIS A .HDC,X+0ffSet,Y+OffSet,W,H, MemDC,0,0,SrcCopy); 

SelectObject(MemDC,01dBitMap); 

DeleteDC(MemDC); 

DrawHiLites(PDIS A .hDC,X,Y,PDIS A .rcItem.Right,PDIS A .rcitern.Bottom,OffSet,State) 
end; 

|****************** TIconGroup ******************************j 
constructor TIconGroup.Init(AParent:PWindowsObject;AnID:Integer;ATextiPChar; 

X,Y,W,H:Integer); 
begin 

TGroupBox.Init(AParent,AnId,AText,X,Y,W,H); 

Attr.Style := Attr.Style and not ws_Visible; 

Oldlcon := nil; 

OldIconID := 0; 
end; 

procedure TIconGroup.SelectionChanged(NewIconID:Integer); 
begin 

TGroupBox.SelectionChanged(NewIconlD); 
if NewIconID « OldIconID then 
Exit; 

If Oldlcon = nil then 
begin 

Oldlcon := PIcon(Parent A .ChildWithID(NewIconID)); 

OldIconID := NewIconID; 
end 
else 
begin 

01dIcon A .State := sr_Raised; 

InvalidateRect(01dIcon A .HWindow,ni1.True); 

Oldlcon := PIcon(Parent A .ChildWithID(NewIconID)); 

OldIconID := NewIconID; 
end; 

end; 

end. 

{ End of File } 


visual feedback to the user. The icon 
window forwards the button messages 
to the main window where the 
response fairly belongs. The result is a 
floating toolbar that the user can move 
around, re-orient, hide, and show, and 
that adds little complication to the rest 
of the program logic. 

Colorizing the background with cus¬ 
tom brushes proves fairly easy and of¬ 
fers many possibilities. The built-in pat¬ 
terns are not too useful, but using a 
monochrome resource expands the op¬ 
tions and adds little overhead. Using 
these techniques, you can add a little 
custom beauty to your windows 
without making your program code 
ugly - surely a top priority for every 
coder! □ 


Notice to Our 
Subscribers 

Occasionally, Windows/DOS 
Developer’s Journal makes its 
mailing list available to vendors 
of products we think our 
readers will find interesting. Cur¬ 
rent subscribers receive free in¬ 
formation in the mail from 
these vendors. 

If you prefer that your name 
not be used in these mailings, 
please let us know, just copy or 
clip this form and send it with 
your name and address to: 


Windows/DOS 
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Creating 
an Icon Editor 

PederJungck 


[Editor's Note: This article is a continuation of a series that appeared in 
Programmer’s Journal before that magazine ceased publication.] 

In a previous article (Programmer's Journal 9.5), I explored the realm of 
bitmapped icons and presented a routine, Display_Icon() (see Listing 1), that 
accepts a pointer to an icon bitmap and displays it. The data for that icon was 
hard-coded in the source - which is probably the hardest way to create an 
icon for an application, especially when you need more than one. What good 
is the world's fastest, most powerful icon display routine if you cannot effi¬ 
ciently create an icon? In this article, I develop an icon editor that lets you 
interactively create icon bitmaps you can pass to Display_Icon(). 

In the earlier article, I knew how I wanted the icon to look, but transform¬ 
ing that knowledge into the appropriate bitmap for Display_Icon() requires 
a lot of effort when done manually. So, I’ll admit it, I cheated. The icon I used 
was grabbed from the output of the icon editor I describe here. If icons can be 
simply painted on screen, and then saved in the format required by Dis- 
play_Icon(), why should anyone be required to draw them by hand? In this 
article I use an icon format based on EGA/VGA bit plane architecture. One 
logical extension to this editor would be to save the disk file in a common 
format, such as a Windows . ico file. When reading or writing the file, you 
would convert between native format and the Windows format. 


Peder Jungck is a software engineer in Dallas, TX. He is the author of the 
Pro-Graphx Toolbox. He can be contacted at 1019 West Lovers Lane, Arlington, 
TX 76013. 
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The User Interface 

Figure 1 shows the format required by Display_Icon(), 
storing data for eight 16-color pixels in each block. It is 
designed with the EGA/VGA hardware in mind. To use mask¬ 
ing, a byte-at-a-time display method is most effective-, you 
can load the Bit Mask register (port 3CEh, function 8) and then 
copy the four planes to the video RAM without having to 
modify the Bit Mask register. 

The icon editor converts the image you paint into an icon 
using the byte-at-a-time format. The user interface of the icon 
editor features a grid containing an enlarged view of the icon 
being edited (Figure 2 shows a black and white reproduction 
of the icon editor screen). You move the cursor around and 
click the left button to set a pixel to the current drawing color 
or click the right button to mask the pixel. Figure 3 shows the 
complete list of commands. The editor displays the current 
drawing color and background color at the top center of the 
screen. On the right-hand side of the screen are two samples 
of how the icon will look, the top one drawn on a black back¬ 
ground and the bottom one drawn on the background color 
you have selected. When you start the icon editor, it auto¬ 
matically displays a built-in sample icon, using Scan_Icon(). 



Figure 3 1 

Space 

Set current position to current drawing color. 

B 

Toggle the background color to show through in 
masked sample icon. 

C 

Toggle the current drawing color. 

G 

Toggle the grid color. 

1 

Move cursor position up. 

J 

Move cursor position left. 

K 

Move cursor position down. 

L 

Move cursor position right. 

M 

Set current position to be masked. 

0 

Open an Icon file. 

Q 

Quit the Icon Editor. 

S 

Save the Icon file. 

Icon Editor Commands 


Figure 4 

egatool3.asm 

Listing 1: EGA/VGA Icon Routines. 

iconedit.c 

Listing 2: User Interface for Icon Editor. 

iconedit.h 

Listing 3: Header File for egatool3.asm. 

mouse.h 

Listing 4: Header File for mouse.c. 

mouse.c 

Listing 5: Mouse Interface Routines. 
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Listing 1 (egatool3.asm) 

; EGAT00L3.ASP 

— EGA/VGA Icon 

Editor routines 

out 

dx,al ; select mode (register 5) 

; BY PEDER JUNGCK (Copyright 1991) 

mov 

dx,3cfh 

; Assembly language routines designed for C-style calling conventions 

mov 

al ,0 

; All example 

routines use a near call model - assemble with /MX switch 

out 

dx,al ; set write mode back to 0 




mov 

dx,3ceh 

; ........ COMPILER DIRECTIVES 


mov 

al ,8 




out 

dx.al ; select mask (register 8) 

.model small 



mov 

dx,3cfh 

.code 



mov 

al.Offh 




out 

dx.al ; and set default mask 

; ........ PUBLIC DEFINITIONS - 


pop 

ds ; restore data segment 




pop 

bp 

Public Video 

Mode 

;(int Mode) 

ret 


Public Set Pixel 

;(int x.int y.int Color) 

Set Pixel 

endp 

Public Display Icon 

;(int x,int y.void far *Data); 



Public _Copy_Icon 

;(int OrigX, int OrigY, int X, int Y); 

» 


t 

CONSTANTS -=--«» 







Display IconParms struc 

BytesPerLine 

dw 40 

; screen width in bytes (320x200 Mode) 


dw 7 ; pushed BP 

VOffset 

equ OaOOOh 

; video RAM offset 


dw 7 ; return address pushed by call 




di_xpos 

dw 7 ; X position of Icon 

; .. 

................. 

.................................... 

di ypos 

dw 7 ; Y position of Icon 




di addr 

dd 7 ; Address of Icon Data 

Video ModeParms struc 


Display IconParms ends 


dw 7 

; pushed BP 




dw 7 

; return address pushed by call 

; Display Icon(int x, int y, void far *Data); 

vm mode 

dw 7 

; pass new video mode parameter 

Display Icon 

proc near 

Video ModeParms ends 


push 

bp 




mov 

bp.sp 

Video Mode 

proc near 

; void Video Mode(int Mode); 

push 

ds 

push 

bp 


push 

di 

mov 

bp.sp 

; put sp in bp, to get parameters on stack 

push 

si 

mov 

ax,[bp+vm mode] 




xor 

ah,ah 

; set video mode ( ah-0 ) 

mov 

di.BytesPerLine ; RAM Line length currently set 

int 

lOh 

; call video BIOS 



pop 

bp 


Ids 

si,[bp+di addr] ; ds:[si]-start of icon 

ret 



mov 

dx,VOffset ; EGA address 

_Video Mode endp 


mov 

es.dx ; segment ega 




mov 

ax,[bp+di ypos] ; get vertical line 

1 



mul 

di 

Set PixelParms 

struc 


mov 

bx,[bp+di xpos] ; horizontal byte 


dw 7 

; pushed BP 

add 

bx.ax ; (y*40) + bx <- the horiz byte 


dw 7 

; return address pushed by call 


; normally in wmO 

ps xpos 

dw 7 

; X Position of Pixel 



ps ypos 

dw 7 

; Y Position of Pixel 

dec 

di ; Next line offset variable 

Color 

dw 7 

; Color of Pixel 


; Adding at position 2 in icon 

Set PixelParms 

ends 



; to end up at position 1 in next 





; line of the icon in video RAM 

Set Pixel proc near ; 

void Set Pixel(int x, int y, int Color) 



push 

bp 


mov 

dx,03c4h ; select the map register. 

mov 

bp.sp 


mov 

al ,2 

push 

ds 

; save the data segment 

out 

dx,a1 

mov 

ax,VOffset 

; get the video RAM address 



mov 

ds.ax 

; set data segment to EGA/VGA 

mov 

cx,16 ; Number of lines per icon 

mov 

ax,[bp+ps ypos] 

; get the y coordinate 

DIStart: 

; column 1 

mul 

BytesPerLine 

; get the offset to line y 

mov 

dx,3ceh 

mov 

bx,[bp+ps xpos] 

; get the x coordinate 

lodsb 

; get the mask. 

mov 

cx,bx 

; and save in CX 

mov 

ah,8 

shr 

bx,l 

; and divide by 8 

xchg 

ah,al 

shr 

bx,l 


out 

dx,ax 

shr 

bx.l 




add 

bx,ax 

; bx : = BytesPerLine*y+(x/8) 

mov 

dx,03c5h ; load the map register data address. 



; we now have x,y memory offset 



and 

cl.7 

; generate mask for one pixel in byte 

mov 

a1,l ; plane 1. 

xor 

cl.7 


out 

dx.al 

mov 

ch,l 


lodsb 


shl 

ch,cl 

; ch :- 1 »» (7-(x mod 8)) 

xchg 

es:[bx],a1 

mov 

dx,3ceh 

; now select write mode 2 

mov 

al,2 ; plane 2. 

mov 

al ,5 


out 

dx.al 

out 

dx.al 

; select mode (register 5) 

lodsb 


mov 

dx,3cfh 


xchg 

es:[bx],al 

mov 

al ,2 




out 

dx,al 

; and set to write mode 2 

mov 

al ,4 ; plane 4. 




out 

dx.al 

mov 

dx,3ceh 

; set up mask 

lodsb 


mov 

al ,8 


xchg 

es:[bx],al 

out 

dx,a1 

; select mask (register 8) 



mov 

dx,3cfh 


mov 

al,8 ; plane 8. 

mov 

al ,ch 


out 

dx.al 

out 

dx.al 

; set mask 

lodsb 





xchg 

es:[bx],al 

mov 

al,[bx] 

; read from card and color dot 



mov 

ax,[bp+Color] 


inc 

bx ; column 2 

mov 

[bx],al 

; write color to dot 






mov 

dx,3ceh 

mov 

dx,3ceh 

; restore default mode 

lodsb 

; get the mask. 

mov 

al .5 


mov 

ah,8 



EGA/VGA Icon Routines 
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Listing 1 

-Cont’d 



xchg 

ah.al 


mov 

al ,8 

; plane 8. 

out 

dx.ax 


out 

dx.al 





lodsb 



mov 

dx,03c5h 

; load the map register data address. 

xchg 

es:[bx],al 


mov 

al ,1 

; plane 1. 

add 

bx.di 

; Start of next line of icon 

out 

dx.al 




; in video RAM 

lodsb 






xchg 

es:[bx],al 


loop 

DIStart 

; do next row 

mov 

al ,2 

; plane 2. 

mov 

al.Ofh 

;reset the map mask. 

out 

dx.al 


out 

dx.al 


lodsb 






xchg 

es:[bx],al 


mov 

dx,3ceh 





mov 

ax,0ff08h 

; reset the bit mask to all ones. 

mov 

al ,4 

; plane 4. 

out 

dx.ax 


out 

dx.al 





lodsb 



pop 

si 


xchg 

es:[bx],al 


pop 

di 





pop 

ds 



Most of the logic of the icon editor is 
in iconedit.c (Listing 2). In particular, 
main() contains two event loops - one 
for the mouse interface (if main() 
detects a mouse at startup) and one for 
the keyboard interface. After each input 
event, main() calls Draw_Grid() and 
Update_Icon(). Draw_Grid() simply 
redraws the grid in the current grid 
color and then, if you are not using a 
mouse, highlights the current grid posi¬ 
tion by drawing an outline for it in a 
different color. Update_Icon() redraws 
the two sample, actual-size, icons at the 
right. 

SetPos() handles updating both the 
screen (by calling SetColor()) and the 
icon bitmap when you change a pixel. It 
either sets the indicated pixel to the 
desired color or, if you pass it a color of 
-1, sets the corresponding mask bit and 
calls SetColor() to draw an "X” in the 
corresponding grid square. 

That is all there is to this icon editor 
from a high-level perspective. The bit 
twiddling is probably the most interest¬ 
ing part of the code in an icon editor. 
The program needs to constantly con¬ 
vert from user coordinates and colors to 
bitmapped data. 

Flippin’ Bits 

Scan_Icon() is the routine that 
generates the enlarged grid from the 
bitmapped icon data. Just as the EGA 
takes a bit out of each of four planes to 
create a sixteen-color pixel, so does 
Scan_Icon(). The hard part is forming 
the pixel for each x and y coordinate. 


How to build industrial strength 
database applications under Windows 


Quadbase-SQL/Win ™ 

is the SQL engine of choice for 
developing applications under Win¬ 
dows using your favorite front- 
end/language such as Visual Basic, C, 
C + +, ObjectView, Toolbook, 
SQLWindows etc.. Whether your ap¬ 
plication runs on Laptops, Pen-based 
systems or LANs, you will find that 
Quadbase-SQL/Win sets price/per¬ 
formance standards. 

Quadbase-SQL/Win™, a DLL, is a 
full-featured relational database en¬ 
gine which is very fast, compact and 
specially designed to manage large 
amounts of data efficiently. 

The underlying file formats are 
dBASE compatible. It can also read 
Lotus 1-2-3 files and index files from 
Clipper, FoxPro and dBASE IV. 

Find out why GE, Compaq Computer, 
Microsoft, ABB, The Upjohn Co., 
AT&T and many more top notch com¬ 
panies are using Quadbase-SQL/Win. 

dQUERY is your award-win¬ 
ning power tool for ad hoc 
querying, report writing, and 
building canned query systems 
using SQL and QBE. 
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• Fully supports ANSI SQL 86 level 2 
standards, outer-join, referential 
integrity constraints, multi-user 
concurrency controls (four isola¬ 
tion levels), crash recovery, transac¬ 
tion processing, scroll cursors and 
security features. 

•Supports multiple instances, BLOB 
and read-only schemas (for CD- 
ROMs). 

• Offers custom controls for Visual 
Basic. 

• supports embedded SQL for Visual 
Basic and other languages. 

• Embedded SQL preprocessor for 
C. 

•VBQUERY, an interactive query 
tool, written in Visual Basic and 
dQUERY are included. 

Call for a free demo disk. 

Quadbase 
Systems Inc. 

790 Lucerne Drive #51 
Sunnyvale, CA 94086 
Voice: (408) 738-6989 
Fax: (408) 738-6980 
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Listing 1 

— Cont’d 



pop 

bp 

out 

dx,al 


ret 





_Display_Icon endp 

mov 

dx,03c5h 

; load the map register data address. 

. ******************************************************************** 

• 

mov 

al,0fh 

; enable all planes 



out 

dx,al 


Copy IconParms 

struc 





dw ? ; pushed BP 

mov 

dx,3ceh 



dw ? ; return address pushed by call 

mov 

al ,5 


cl oxpos 

dw ? ; Original X position 

out 

dx.al 


ci oypos 

dw ? ; Original Y position 




ci xpos 

dw ? ; New X position 

inc 

dx 


cl ypos 

dw ? ; New Y position 

mov 

al ,1 


Copy_IconParms 

ends 

out 

dx,al 

; select write mode 1 

; Copy Icon(int OrigX, int OrigY, int X, int Y); 

mov 

ax,BytesPerLine 

; Offset to next line 

Copy Icon proc 

near 

dec 

ax 

; Subtract icon width 

push 

bp 

dec 

ax 


mov 

bp.sp 




push 

si 

mov 

cx,16 


push 

di 

CIStart:movsb 

; reads ds: [si] then 

writes es:[di] 

push 

ds 

movsb 

; reads icon place in 

memory then writes to dest 

mov 

dx.VOffset ; EGA address 

add 

si ,ax 

; Get to start of next line of 

mov 

es,dx ; segment ega 

add 

di ,ax 

; the orig and dest addresses 

mov 

ds,dx ; segment for ega 






loop 

CIStart 



; Get the origination icon addr 




mov 

ax,[bp+ci oypos] ; get vertical line 

mov 

dx,3cfh 

; write mode register already 

mul 

BytesPerLine 

mov 

al ,0 

; selected, just output value now 



out 

dx,al 

; restore write mode 0 

mov 

si,[bp+ci oxpos] ; horizontal byte 




add 

si,ax ; (y*40) + bx <- the horiz byte 

pop 

ds 




pop 

di 




pop 

si 


mov 

ax,[bp+ci ypos] ; get vertical line 

pop 

bp 


mul 

BytesPerLine 

ret 





Copy Icon endp 



mov 

di,[bp+ci xpos] ; horizontal byte 




add 

di,ax ; (y*40) + bx <- the horiz byte 

end 




; normally in wmO 






; End of File 



mov 

dx,03c4h 




mov 

al ,02 






Listing 2 

(iconeditc) 



/* ICONEDIT.C — A basic Icon Editor ”*■ */ 


void Open Fi1e() 

/ ~ 

/* Prompt & save icon to a file 

V 

linclude "iconedit.h" 



FILE *In Block; 



linclude "stdio.h" 



char Filename[80]; 



linclude "mouse.h M 



int 1; 



Idefine GRIDWIDTH 8 



Gxy(1,23); 

/* Locate and place prompt 

V 

Idefine ICONSIZE 16 



printf("Enter Filename : "); 






scanf ("%s",Filename); 

/* Get the filename 

V 

I* Default Icon Data 

V 

Gxy(1,23); 



Icon Iconl - { 



for (i-0; i<40; i++) printf(" "); 

/* Wipe out the prompt line 

V 

0x03,0x00,0x00,0x00,0x00, 

0xF8,0x00,0x00,0x00,0x00, 





0x07,0x00,0x03,0x03,0x03, 

0xFC,0x00,0xF8,0xF8,0xF8, 


In Block-fopen(Filename,"rb"); 



OxOF,0x00,0x07,0x07,0x07, 

0xF8,0x70,0x70,0x70,0x80, 


fread(&Iconl,sizeof(Icon),l,In Block); 


OxOF,0x00,0x06,0x06,0x07, 

OxF8,OxFO,OxDO,OxDO,Ox40, 


fclose(In Block); 



OxOF,0x00,0x06,0x06,0x07, 

0xFC,0xF8,0xF8,0xF8,0x00, 


}; 



OxOF,0x01,0x05,0x05,0x06, 

0xF8,0xE0,0xE0,0xE0,0xl0, 





OxOF,0x01,0x05,0x05,0x06, 

0xF8,0x70,0x70,0x50,OxBO, 





OxOF,0x01,0x01,0x01,0x00, 

Ox FC,0xB8,0xB8,0xB8,0x40, 


void Save Fi1e() 

/* Prompt & retrieve icon from a 

file*/ 

0x3F,0x00,0x00,OxOF,0x02, 

OxFE,0x00,0x00,OxCC.OxOC, 


{ 



0x7F,0x00,0x00,0x3F,0x21, 

OxFE,0x00,0x00,OxFC,OxOC, 


FILE *0ut Block; 



0x7 F,0x00,0x00,0x33,0x30, 

Ox FC,0x00,0x00,OxFO,OxCO, 


char Filename[80]; 



0x3F,0x00,0x00,0x03,0x00, 

OxFC,0x00,0x00,OxCO,0x00, 


int i; 



0x3F,0x18,0x18,OxlB.OxlB, 

OxFE,0x04,0x04,Ox F4,0x04, 





0x7F,0x30,0x30,0x3F,0x30, 

OxFE,OxOC,OxOC,OxFC,OxCC, 


Gxy(l,23); 

/* Locate and place prompt 

V 

0x7F,0x20,0x20,0x27,0x20, 

OxFC,0x18,0x18,0x18,0x18, 


printf("Enter Filename : "); 



0x27,0x00,0x00,0x00,0x00, 

0x18,0x00,0x00,0x00,0x00 


scanf ("%s",Filename); 

/* Get the filename 

V 

}; 



Gxy(l,23); 






for (1-0; i<40; i++) printf(" "); 

/* Wipe out the prompt line 

V 

void far Gxy(int x,int y) /* Set BIOS current text position 

V 

Out Block-fopen(Filename,"wb"); 



{ 



fwrite(&Iconl,sizeof(Icon),l,0ut Block); 


union REGS Regs; /* Registers to use with int86 

V 

fclose(0ut Block); 

i. “ 



Regs.h.ah=2; 



/ • 



Regs.h.al-0; 






Regs.x.bx-0; 



void Draw Grid(int CX.int CY, int 

GRIDCOLOR, int Cursor) 


Regs.h.dh-y-1; 



{ 



Regs.h.dl-x-1; 



int i,j; 

/* Loop variables 

*/ 

int86(0xl0,&Regs,&Regs); 






}; 



for (j=0; j<*ICONSIZE; j++) 

/* Generate the grid for editor 

V 




for (i-0; i<-ICONSIZE*GRIDWIDTH; 
{ 

i ++ ) 



User Interface 

for Icon Editor 
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Listing 2 

-Cont’d 



Set Pixel(i,j*GRIDWIDTH,GRIDC0L0R); 

Set Pixel(j*GRIDWIDTH,1.GRIDCOLOR); 


{ 

Set Pixel(1+168,j+16,CC); 

/* Current Drawing Color 

*/ 

); 


Set_P1xel(i+204,j+16,BC); 

/* Background Color for Masking 

*/ 

If (Cursor—TRUE) 

for (1-0; 1<»GRIDWIDTH; 1++) /* Draw the cursor position 

*/ 

); 



i 


void SetColor(int CX, int CY, int CC0L0R) /* Draw color block in grid 

*/ 

Set Pixel(CX*GRIDWIDTH+i,CY*GRIDWIDTH,GRIDC0L0R+1); 

Set Pixel (CX*GRIDWIDTH+i,CY*GRIDWIDTH+GRIDWIDTH,GRIDC0L0R+1); 
Set~P1xel(CX*GRIDWIDTH,CY*GRIDWIDTH + 1.GR1DC0L0R+1); 


{ 

int 1,j; 

/* Loop variables 

*/ 

Set Pixel(CX*GRIDWIDTH+GRIDWIDTH,CY*GRIDWIDTH + i.GRIOCOLORel); 


for (i-0; i<GRIDWIDTH; i++) 

/* Fill Color Block in Grid 

*/ 

); 

); 


for (j-0; j<GRIDWIDTH; j++) 

{ 

/* If Masking Draw an X 

*/ 



if (CC0L0R--1) 



void Update_Status(int CC, int BC) /* Display Current and Bkgnd Color 

*/ 

if (((i+j+l)--GRIDWIDTH) || 

(i--j)) /* Is Position in the X 

*/ 

int 1 t j; /* Loop variables 

*/ 

l 

Set Pixel(CX*GRIDWIDTH+i, 

CY*GRIDWIDTH+i,8); 




Set Pixel(CX*GRIDWIDTH+(GRIDWIDTH-i-l),CY*GRIDWIDTH+i,8); 


for (j-0; j<-7; j++) /* Small Sample Color Blocks 

*/ 

i 

/* Black out other not in X 

*/ 

for (i-0; i<-7; i++) 


else Set_Pixel(CX*GRIDWIDTH 

+ i,CY*GRIDWIDTH ♦ j,0); 



To extract the pixel for a specific x 
and y coordinate, begin with the y 
coordinate - it equals the scan line the 
pixel is in. Next, locate the correct 
horizontal byte in the scan line by 
dividing the x coordinate by eight (since 
each byte represents eight pixels). Then, 
extract the correct bit, remembering 
that pixel 0 corresponds to the most 
significant bit in the byte. After repeat¬ 
ing this procedure for each of the four 
planes, you have the four bits that 
make up the 16-color pixel for the 
given x and y coordinates. 

SetPosf) operates in the opposite 
direction; given a color, SetPosf) has to 
update the icon bitmap. SetPosf) 
determines the scan line and horizontal 
byte as Scan_Icon() does, but rather 
than performing a bit compare, Set¬ 
Posf) sets or resets the corresponding 
bit. 

Where to Go from Here 

Figure 4 lists the files required for in 
creating the icon editor. The version 
presented here is the functional core, to 
which a plethora of features may be 
added. First, I would allow for files with 
multiple icons and a means of selecting 
which icon you wish to edit. I would 
also add routines to flip, shift, and 
rotate an icon, as well as dither pat¬ 
terns and different brush sizes. In sum¬ 
mary, there is plenty of room for ex¬ 
pansion, but given the complexity of 
creating the bitmap by hand, this icon 
editor demonstrates the difference a 
tool can make in generating resources. □ 
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Listing 2 — Cont’d 


} 

else /* Not Masking, Fill all pixels */ 

Set Pixel(CX*GRIDWIDTH ♦ i,CY*GRIDWIDTH + j.CCOLOR); 

}; 


void SetPos(int CX, int CY, int CCOLOR) /* Draw color block and set */ 
{ /* data bits in icon data */ 

int i,j,HByte; /* Loop variables */ 

HByte-CX / 8; /* Which Horizontal Byte?? */ 

SetColor(CX,CY,CCOLOR); /* Color the block in the grid */ 

/* Set the bits in the icon data */ 

if (CC0L0R—-1) /* ■■■ Masking *■» */ 

{ 

for (i-0; i<-3; i++) 


Iconl[CY].Pos[HByte].Plane[i] (char) ((0x01 « (7+(HByte*8)-CX)) * 

Oxff); 

Iconl[CY].Pos[HByte].MaskByte &- (char) ((0x01 « (7+(HByte*8)-CX)) A Oxff); 

} 

else /* *** No Masking *** */ 

{ 

for (i-0; i<-3; i++) 

{ 

j-i « i; 

if (j & CCOLOR) /* Is this bit set */ 

Iconl[CY].Pos[HByte].Plane[i] |- (0x01 « (7+(HByte*8)-CX)); 
else /* Bit not set */ 

Iconl[CY].Pos[HByte].Plane[i] &= (char) ((0x01 « (7+(HByte*8)-CX)) * 

Oxff); 

}; /* Turn off masking since color */ 

Iconl[CY].Pos[HByte].MaskByte |« (char) (0x01 « (7+(HByte*8)-CX)); 

}; 


void Scan_Icon() 

{ 

int i,j; 

int CX,CY,CCOLOR; 
int HByte; 

for (CX-0; CX<ICONSIZE; CX++) 
for (CY-0; CY<ICONSIZE; CY++) 
{ 

CC0L0R-0; 

HByte-CX / 8; 


/* Redraw grid display from icon data*/ 


/* Loop variables 
/* Current X,Y, and Color 
/* Current Horizontal Byte 


/* Scan through each pixel location */ 


/* Start with Black */ 

/* Which Horizontal Position (Byte) */ 


if ((Iconl[CY].Pos[HByte].MaskByte & (0x01 « (7+(HByte*8)-CX))) — 0) 
CCOLOR ■ -1; /* Its masked out */ 


Gxy(21,6); printf("C olor"); 
Gxy(21,7); printf("B kgnd Color"); 
Gxy(21,8); printf("G rid Color"); 
Gxy(21,9); printf("0 pen"); 

Gxy(21,10); printf("S ave"); 

Gxy(21,12); printf("Q uit"); 

Gxy(12,19); printf("Icon Editor"); 
Gxy(10,20); printf("By Peder Jungck"); 
Gxy(10,21); printf("Copyright 1991"); 
); 


void main () 

{ 

char ch; /* 
int CurX.CurY; /* 
int CurColor,GridColor,BackColor; /* 
char Quit - FALSE; /* 
int i; /* 
int Button; /* 
int MouseSupport; /* 

CurX«CurY«0; /* 
BackColor«l; /* 
CurColor*15; /* 
GridColor*8; /* 


User Input Variable */ 
Current Cursor X,Y Offset */ 
Colors */ 
Main Event Loop Status */ 
Loop Variable */ 
Which Mouse Button was pressed */ 
Is a mouse driver resident */ 

Cursor Position */ 
Color of Background for Mask Test */ 
Current Drawing Color */ 
Color of Grid,Cursor Color*Grid+l */ 


Video_Mode ( OxOd ); /* Set the video mode to 320x200x16 */ 

Draw_Text(); /* Draw the text elements of screen */ 


Update_Status(CurColor,BackColor);/* Sample Drawing & Background Color */ 
Scan_Icon(); /* Read Data and Create Enlargement */ 


if (Mouse Exists()--TRUE) /* Is there a mouse available */ 

{ 

Draw_Grid(0,0,GridCol or,FALSE); 

MouseSupport * TRUE; 

Mouse_Init(); /* Initialize the Mouse Driver */ 

Mouse 0n(); 

} 

else 

{ 

Draw_Grid(CurX,CurY,GridColor,TRUE); 

MouseSupport ■ FALSE; 

}; 


if (MouseSupport**TRUE) /* **■*«****•*■ Mouse Support */ 

{ 

do /* Main Event Loop */ 

{ 

Update_Icon(BackColor); /* Display View */ 

Button ■ 0; 
do 


if (CC0L0R==0) /* Not Masked */ 

( 

for (i*0; i<*3; i++) /* Determine color from the planes */ 

{ 

M « i; 

if ((Iconl[CY].Pos[HByte].Plane[i] & (0x01 « (7+(HByte*8)-CX))) !« 0) 
CCOLOR |* j; /* If bit set, set bit in color */ 

}; 

}; 

SetColor(CX,CY,CCOLOR); /* Set the block in the grid */ 

); 


void Update_Icon(int BCOLOR) /* Redraw the icon displays at right */ 

{ 

int i,j; /* Loop variables */ 


Copy_Icon (36,24,36,40); /* Clear Display Position(Copy Black)*/ 

Display_Icon(36,40,Iconl); /* Draw the icon on Black Background */ 

for (i»0; i<ICONSIZE; i++) /* Draw a region in the BackColor */ 

for (j*0; j<ICONSIZE; j++) 

{ 

Set_Pixel(36*8 + i,56 + j,BCOLOR); 

}; 

Display_Icon(36,56,Iconl); /* Draw the icon masked on BackColor */ 

}; 


Button » Get_Mouse_Button(); /* 

} while (Button « 0); /* 

/* 

Get_Mouse_Position(&CurX,&CurY);/* 


Wait until mouse button pressed. */ 
Some commands may need to wait */ 
until lift up, but handle later. */ 

Where is the mouse? */ 


/* Are we in the grid to set the Contents */ 
if ((CurX < IC0NSIZE*GRIDWIDTH*2) && (CurY < 
{ 

MouseOff(); 
if (Button 1) 

SetPos(CurX » 4, CurY » 3, CurColor); 
else 

SetPos(CurX » 4, CurY » 3, -1 ); 
Mouse_0n(); 


ICONSIZE*GRIDWIDTH)) 


/* Left Button ?? */ 
/* then set to Color */ 
/* Right Button ?? */ 
/* then set to Masking */ 


} 

else if ((CurX >- 320) && (CurX <■ 
{ /* 
if (CurY < 48) /* 


332) && (CurY >» 40) && (CurY <- 96)) 
Are we in the command block ??? */ 
Change the current drawing color */ 


{ 


CurColor * CurColor**15 ? 0 : ++CurColor; 

Mouse_0ff(); 

Update_Status(CurColor,BackColor); 

Mouse_0n(); 

do /* Wait for the mouse button to be */ 

{ /* let up in order not to auto repeat*/ 

Button * Get_Mouse_Button(); 

} while (Button !■ 0); 


else if (CurY < 56) /* Toggle the Background Color */ 

{ 


void Draw_Text() /* Draw all screen text */ 

{ 

int i; 

Gxy(21,l); printf("CUR BACK"); 


BackColor - BackColor*»15 ? 0 : ++BackColor; 

MouseOff(); 

Update_Status(CurColor.BackColor); 

Mouse_0n(); 

do /* Wait for the mouse button to be */ 

{ /* let up in order not to auto repeat*/ 

Button * Get_Mouse_Button(); 
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} 


} while (Button 1*0); 


I* Toggle the Grid Color 


else if (CurY < 64 ) 

{ 

GridColor * GridColor«15 ? 0 : ++GridColor; 

do /* Wait for the mouse button to be */ 

{ /* let up in order not to auto repeat*/ 

Button - Get_Mouse_Button(); 

} while (Button 1-0); 

} 

else if (CurY < 72) /* Open an icon file */ 

{ 

Open_File() 

Mouse_0ff() 

Scan_Icon() 

Mouse 0n(); 

} 

else if (CurY < 80) 

( 

Save File(); 

) 

else if (CurY > 88) Quit*TRUE; 


/* Read Data and Create Enlargement */ 


/* Save an icon file 


Mouse_0ff(); 

Draw_Grid(0,0,GridColor,FALSE); /* Draw the Grid after update 
Mouse_0n(); 

} while (IQuit); 

} 

else /* ■■■■■■■■■■■■' 

{ 

do 


No Mouse Support ■■■■■■■■■■»« 
/* Main Event Loop 


{ 


Update_Icon(BackColor); 
ch-getch(); 


/* Display View 
/* Wait for User Input 

/* Select function per User Input 


switch (toupper(ch)) 

{ 

case ' SetPos(CurX,CurY,CurColor); break; 
case 'B*: BackColor ■ BackColor--15 7 0 : -H-BackColor; 
Update_Status(CurColor,BackColor); 
break; 

CurColor ■ CurColor«-15 ? 0 : ++CurColor; 
Update_Status(CurColor,BackColor); 
break; 

GridColor ■ GridColor--15 ? 0 : -M-GridColor; 
break; 

CurY - CurY«0 ? CurY : —CurY; break; 

CurX - CurX«0 ? CurX : —CurX; break; 

case *K*: CurY - CurY—15 ? CurY : ++CurY; break; 

case 'L 1 : CurX ■ CurX-«15 ? CurX : ++CurX; break; 

case 'M': SetPos(CurX,CurY,-l); break; 
case 'Q*: Quit-TRUE; break; /* Quit Icon Editor 
case 'O': Open_File(); Scan_Icon(); break; 
case 'S': Save File(); break; 

); 

Draw Grid(CurX,CurY,GridColor,TRUE); /* Draw the Grid and Cursor 
} while (IQuit); 

); 

Video Mode ( 3 ) ; 


case 'C' 


case 1 G' 

case 'I' 
case 'J * 


/* Properly restore text mode prior */ 
/* to exiting to DOS. */ 


/* End of File */ 


/* EGATOOLS for Programmer's Journal On Graphics: Icon Editor 
/* ICONEDIT.h C Header file for EGAT00L3.0BJ graphics library 


Listing 3 (iconedit.h) 

extern void near Video Mode 


/* An Icon data type can be thought of as 160 bytes, or this broken 
/* down definition. By breaking it down the Icon Editor can more 
/* easily flip bits. 


typedef struct { 


/* Definition of 8 Pixels in 16 colors */ 


unsigned char MaskByte; /* using masking, 
unsigned char Plane[4]; 

} ColorByte; 


7 


typedef struct { /* Two bytes per scan line of the Icon */ 

ColorByte Pos[2]; 

) ColorLine; 


typedef ColorLine Icon[16]; 
typedef struct { 


/* 16 lines, 2 bytes wide forms an icon */ 


char Numlcons; /* Number of Icons in the Icon File */ 
Icon Data[50]; /* Icon data */ 
} IconFile; 

y***********************************************************************y 
/* VideoMode uses the standard interrupt service routine to set the */ 
/* video mode desired */ 
y***********************************************************************y 


(int Mode) ; 


y***********************************************************************y 
/* Set a pixel at coordinate x,y in color Color */ 

I ***********************************************************************j 

extern void near Set_Pixel (int x, int y, int Color); 


/***********************************************************************/ 
/* Display an icon at location x,y from system RAM into video RAM */ 
/* using write mode 0. */ 

/***********************************************************************/ 
extern void near Display_Icon (int x, int y.void far *Data); 

/*************.******..*********.**************.************************/ 
/* Copy and icon from one location in video RAM to another location in */ 
/* video RAM using write mode 1. */ 

/***********************************************************************/ 
extern void near Copy_Icon (int OrigX, int OrigY, int X, int Y); 

/* End of File V 


Header File for egatool3.asm 


Listing 4 

(mouse.h) 

/* MOUSE. H — Varible classes and Function declarations for Mouse routines */ 



j *********************************************************************** j 

struct WORDREGS { 

/* Mouse takes the parameter a and passes this as the ax register to */ 

unsigned int ax, bx, cx, dx, si, di, cflag, flags; 

/* the mouse interrupt handler. */ 

}; 

y****************************************************************•*******/ 


void far Mouse(int a) ; 

struct BYTEREGS { 


unsigned char al, ah, bl, bh, cl, ch, dl, dh; 


}; 

/* This routines returns either a 1 or 0 depending on whether or not */ 


/* the mouse driver is installed. TRUE-1 FALSE-0 */ 

union REGS { 

y***********************************************************************y 

struct WORDREGS x; 

int far Mouse_Exists() ; 

struct BYTEREGS h; 


}; 

y***********************************************************************y 


/* Mouse Init initializes the mouse with our default region and speed */ 


/* parameters. */ 

Idefine TRUE 1 

y***********************************************************************y 

Idefine FALSE 0 

void far Mouse_Init() ; 

Header File 

for mouse.c 
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Listing 4 — Cont’d 


y***********************************************************************y 
/* Get_Mouse_Position does just that, it places the current X and Y */ 
/* coordinates in the integers whose addresses are passed. */ 
y************************************************«**«*****************y 
void far Get_Mouse_Position(int *x,int *y); 

y***********************************************************************y 
/* While Get_Mouse_Position retrieves the mouse coordinates, the */ 
/* Set_Mouse_Position takes two integers and sets the new position. */ 
y***********************************************************************y 
void far Set_Mouse(int x,int y); 

y***********************************************************************y 
/* Mouse_0ff hides the mouse position, this is necessary when you do */ 


/* an update of the display since you do not want the mouse to restore */ 
/* what was underneath the cursor from before you edited the display. */ 
y***********************************************************************y 


void far Mouse_0ff(); 

y***********************************************************************y 


/* House_0n restores the cursor after a Mouse_0ff was used. */ 

y***********************************************************************y 
void far Mouse_0n(); 

/ ****.**«*..*.***************.************«****.**.*************^*** v 
/* Get_House_Position does just that, it places the current X and Y */ 
/* coordinates in the integers whose addresses are passed. */ 

/*********************.*********************************************/ 

int far Get_Mouse_Button(); 


/* End of File */ 


Listing 5 (mouse.c) 


/* —- MOUSE.C — Basic Mouse Routines —- */ 


int86(0x33,&Regs,&Regs); 


linclude "mouse.h" 
linclude "stdio.h" 

union REGS Regs; /* Global storage of Registers to use with Mouse */ 


/* peek.h — information for the memory read peek function 


— V 
*/ 

— V 


#if STDC 


Idefine 

Cdecl 


lelse 



Idefine 

Cdecl cdecl 


lendif 



int 

Cdecl peek 

(unsigned segment, unsigned offset); 

char 

_Cdecl peekb 

(unsigned segment, unsigned offset); 

Idefine 

MK FP(seg.ofs) 

((void far *) \ 



(((unsigned long)(seg) « 16) | (unsigned)(ofs))) 

Idefine 

peek(a,b) 

(*((1nt far*)MK FP((a),(b)))) 

Idefine 

peekb(a,b) 

(*((char far*)MK_FP((a),(b)))) 


y*********************************************************************** j 
/* Mouse takes the parameter a and passes this as the ax register to */ 
/* the mouse interrupt handler. */ 

y***********************************************************************y 

void far Mouse(int a) 

{ 

Regs.x.ax * a; /* Set register ax to value in a */ 

int86(0x33,&Regs,&Regs); 

}; 


y***********************************************************************y 
/* This routines returns either a 1 or 0 depending on whether or not */ 
/* the mouse driver is installed. TRUE*1 FALSE=0 */ 

^***********************************************************************i 

int far Mouse_Exists() 

{ 

unsigned int Mouse interrupt; 


Regs.x.cx*0; Regs.x.dx*639; 
Mouse(7); 

Regs.x.dx*199; 

Mouse(8); 

Regs.x.cx-16; Regs.x.dx*12; 
Mouse(15); 


/* 0 - 319 */ 
/* x boundries *1 
/* 0 - 199 */ 
/* y boundries */ 

/* Mouse Speed */ 


I ***********************************************************************y 


/* Get_Mouse_Position does just that, it places the current X and Y */ 
/* coordinates in the integers whose addresses are passed. */ 
/*********************************************************************.*/ 


void far Get_Mouse_Position(int *x,int *y) 

{ 

Mouse(3); 

*x - Regs.x.cx; 

*y ■ Regs.x.dx; 

}; 


y***********************************************************************y 

/* While Get_Mouse_Position retrieves the mouse coordinates, the */ 

/* Set_Mouse_Position takes two integers and sets the new position. */ 

J ***********************************************************************y 

void far Set Mouse(int x,int y) 

{ 

Regs.x.cx-x; 

Regs.x.dx-y; 

Mouse(4); 

); 


y***********************************************************************y 
/* Mouse_0ff hides the mouse position, this is necessary when you do */ 
/* an update of the display since you do not want the mouse to restore */ 
/* what was underneath the cursor from before you edited the display. */ 

y********************************************************************* AA y 

void far Mouse Off() 

{ 

Regs.x.ax«2; 

int86(0x33,&Regs,&Regs); 

}; 


Mouse_interrupt=peek(0,0x0cc); /* Segment 0 : Offset 0x33*4 */ 

if ((Mouse_interrupt)*=0) return(FALSE); 

else if ((Mouse_interrupt)*-0x40) return(FALSE); 

else { 

Mouse(0); 

if ((Regs.x.ax)”0) return (FALSE); 
else return(TRUE); 

}; 

}; 


y*********************************************************************** y 

/* MouseOn restores the cursor after a Mouse_0ff was used. */ 

y***********************************************************************y 
void far Mouse_0n() 

{ 

Regs.x.ax*l; 

int86(0x33,&Regs,&Regs); 

}; 


y******************************************************************** 
/* Mouse_Init initializes the mouse with our default region and speed 
/* parameters. 

y********************************************************************. 


V 

V 

V 
*/ 


y************************ a**********************************************/ 

/* Get_Mouse_Position does just that, it places the current X and Y */ 
/* coordinates in the integers whose addresses are passed. */ 


int far Get_Mouse_Button() 
{ 


void far Mouse_Init() 

{ 

Regs.x.ax=0; Regs.x.bx*2; 
int86(0x33,&Regs,&Regs); 
Regs.x.ax-1; 


Mouse(3); 

return(Regs.x.bx); /* 0 - None, 1 - Left, 2 - Right, 3 - Both */ 

}; 

/* End of File */ 


Mouse Interface Routines 
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PUSHA/POPA Emulation 

Stephen Nebel 


PUSH and POP are among the most commonly used in¬ 
structions in the Intel 80x86 instruction set. PUSH and POP save 
and restore registers and other individual word values to the 
stack. Beginning with the 80186 and 80188 processors, Intel 
provided the PUSHA and POPA instructions. PUSHA and POPA 
allow you to save or restore the contents of multiple registers 
with a single instruction. 

For programmers working to squeeze code into the 
tightest possible space, PUSHA and POPA are quite attractive. 
PUSHA, a single byte in size, pushes the following registers in 
the following order: AX, CX, DX, BX, SP, BP, SI and DI. POPA, also 
a single byte in size, pops the same registers in reverse order. 

Despite their space-saving potential, these instructions 
have a significant downside: any program that uses them will 
not run on an 8088 or 8086 machine - a limitation that 
reduces the potential market for a given program consider¬ 



ably. This article provides a method of emulating PUSHA and 
POPA capabilities on 8086 and 8088 processors. The software 
emulation of this hardware feature is modifiable; you can easi¬ 
ly customize it to save and restore the register set that makes 
the most sense from your own programming perspective. 
Moreover, code presented here can run unchanged across the 
range of processors from the 8088 to the 80486. 

A Software PUSHA/POPA 

Listing 1 contains a test program and a NEAR CALL version 
of push_pop, the software substitute for both the PUSHA and 
POPA instructions. push_pop uses a coding trick to automat¬ 
ically pop the registers when your calling routines return. In 
other words, you call push_pop where you would normally 
code a PUSHA instruction, but you do not have to call anything 
to get the registers popped before your RET instruction. I will 
explain this in more detail. 

You call push_pop when you want to save the registers on 
the stack. In Listing 1, the calling procedure is test_proc. Once 
called, push_pop pushes a standard set of register values onto 
the stack. By moving the stack pointer into BP and adding 26, 
push_pop next targets the return address on the stack which 
would return it to test_proc. Rather than returning to this 
address, however, push_pop pulls the return address out of 
the stack and performs a CALL to the instruction in the 
original procedure that follows the original CALL to push_pop. 
This trick allows a single push_pop call to handle both pushing 
and popping. 

After push_pop CALLS its return address, the remaining 
code in test_proc executes. In this example, test_proc just 
clears registers so you can trace whether or not they are res¬ 
tored correctly when test_proc returns to main. When 
test_proc returns, it returns to push_pop rather than to main. 
push_pop next POPs all PUSHeti registers and then discards the 
test_proc return address by popping the stack to the vari¬ 
able null_word (the code pops to discard the word rather 
than subtracting 2 from SP, since a subtraction would affect 
flag values you need to preserve). This POP leaves the SP 
pointing to the return address of main. When push_pop then 
returns, it bypasses test_proc completely, and execution 
resumes in main, with the flags and registers in the same 
state as before the call to test_proc. 


Steve Nebel is a computer consultant and writer in Fairbanks, 
AK. He can be reached at P.O. Box 2550, Fairbanks, AK 99707. 
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With push_pop in the NEAR CALL en¬ 
vironment, you get 20 bytes of PUSH 
and POP capacity for a three-byte CALL 
instruction. push_pop even outdoes the 
original PUSHA and POPA instructions by 
including ES, DS, and the flags register. 
This is not to say there are no tradeoffs. 
First of all, push_pop itself, though it 
represents a one-time cost, does re¬ 


quire 46 bytes of space. Once you ab¬ 
sorb the cost in bytes to create the 
procedure, however, calls to push_pop 
will save space for you every time you 
must save and restore more than a 
single register. 


Modifications 

In many cases, it makes sense to 
pare push_pop down somewhat. The 
carry Hag, for example, typically signals 
an error on return to the caller. If you 
forgo saving and restoring the flag 
register, you can cut the routine to 42 
bytes. Similarly, AX is often used to 



Listing 1 (push_pop.asm) 


i PUSH POP.ASM 




PAGE 50,132 


sub ax,ax ; alter 



std ; the 

code SEGMENT WORD PUBLIC 

'CODE' 

stc ; flags too 

ASSUME CS:code,DS:code,ES:code 

ret 


ORG OOh 


test_proc endp 


; == Procedure to Set Environment and Call Test Procedure == 


main proc near 

main procedure 

push pop proc near 


jmp start 


pushf 

push the flags 



push ax 

push 

null word DW 0 

stack unloading zone 

push bx 

all 

near address DW 0 

temporary near call address 

push cx 

other 



push dx 

general 

start: 


push bp 

purpose 



push di 

registers 

mov ax, 1 

get 

push si 


mov bx,2 

tracer 

push ds 


mov cx,3 

values 

push es 


mov dx,4 

into 



mov bp, 5 

all 

push ax 

double push ax and bp to 

mov si,6 

to 

push bp 

save any passed parameters 

mov di,7 

registers 

pushf 

save flags too 

push cs 

test 

mov bp,sp 

prepare for indirect CALL 

pop ds 

ability 

add bp,26 

point to resumption offset 

push cs 

to save and 

mov ax,[bp] 

get into register then 

pop es 

restore all values 

mov near address,ax 

into call offset address 



popf 

restore flags 

add ax,0 

set the 

pop bp 

restore any parameters 

clc 

flags to 

pop ax 

passed in ax or bp 

cld 

specific values 





call near address 

recursively call original proc 

call test proc 

call test procedure 





pop es 

restore 

mov ah,04Ch 

setup for return 

pop ds 

all 

int 21h 

return to DOS 

pop si 

general 



pop di 

use 

ret 


pop bp 

register 



pop dx 

values 

main endp 


pop cx 




pop bx 


; ==== Procedure to Test 

Save and Restore for Near CALL ===== 

pop ax 




popf 

restore flag values 

test proc proc near 






pop null word 

adjust stack to original return 

call push pop 

call push and pop procedure 





ret 


mov ax,0 

clear 



mov bx,0 

all 

push pop endp 


mov cx,0 

registers 



mov dx,0 

of 

; ========================== 


mov bp,0 

tracer 



mov di ,0 

values 

code ENDS ; end of code segment 

mov si ,0 

to 



push si 

test 

end main ; end assembly 

pop ds 

restore 



push si 

of 



pop es 

start values 

; End of File 



PUSHA/POP 

A Emulation 
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Listing 2 (push_far.asm) 


... 


push si ; calling 



push ds ; routine 

null word DM 

; stack unloading zone 

push es ; 


far address DD 

; temporary far call address 





push ax 

double push ax and bp 

... 


push bp 

then 



pushf 

save flags too 

push pop proc far 


mov bp.sp 

set up [BP] addressing 



add bp,26 

point to return offset 

pushf 

push flags 

mov ax,[bp] 

get into register then 

push ax 

and all of the general 

mov word ptr far address,ax 

into DD address 

push bx 

purpose 

add bp,2 

point to RET segment 

push cx 

registers prior to 

mov ax, [bp] 

get into register then 

push dx 

the execution of the 

mov word ptr far address+2,ax 

into DD address 

push bp 

code in 

popf 

restore flags 

push di 

the 

pop bp 

restore any parameters 


FAR CALL Version of push jtop 



return a value to a calling procedure. If 
you use this convention, you can avoid 
saving AX and cut the routine to 38 
bytes. Lastly, if you are willing to forgo 
automatically saving and restoring the 
BP register, you can eliminate the code 
that preserves BP and moves the return 
address to a memory address, using 
this instead: 

mov bp,sp 
add bp,16 
call [bp] 

By calling directly through the BP 
register, you can reduce push_pop to 27 
bytes. You could also require the calling 
procedure to save the BP register, if you 
eliminate registers or the flags or other¬ 
wise reduce the number of PUSH in¬ 
structions, be sure to reduce the value 
of the 

add bp,16 

instruction by two for each PUSH 
omitted. Otherwise, you will go too 
deep into the stack in targeting the 
return address. 

The FAR CALL version of push_pop in 
Listing 2 is very similar to the NEAR 
CALL version. The chief exception is that 
it has to build an address in memory, 
rather than using a CALL [BP] instruc¬ 
tion. This is the only means of forcing 
the assembler to generate the needed 
FAR CALL. The double word directive, 
DD, is the key here. The space saving in 
the case of the FAR version is not as 
pronounced as with the NEAR version. 
The FAR CALL costs five bytes for the 
20 bytes of PUSH and POP, rather than 
just the three bytes required for the 
NEAR CALL version. 




5.0 presents 
C Bug # 644 


iinclude <stdllb.h> 

struct list { struct list *next; } *head = NULL; 
void freeupO 
{ 

struct list *p; 

for( p = head; p; p = p->next ) 
free(p); 

} 




There's something amiss with this function even though it will "work" most of 
the time. Can you or your compiler spot the problem? Call if you need a hint. 
Refer to Bug # 644. 


PC-lint will catch this and many other 
C bugs. Unlike your compiler, PC-lint 
looks across all modules of your 
application for bugs and inconsistencies. 

New - Optional Strong Type Checking 
and variables possibly not initialized. 

More than 330 error messages. More 
than 105 options for complete 
customization. Suppress error messages, 
locally or globally, by symbol name, by 
message number, by filename, etc. 
Check for portability problems. Alter 
size of scalars. Adjust format of error 
messages. Automatically generate ANSI 
prototypes for your K&R functions. 


Attn: Power users with huge programs. 

PC-lint 386 uses DOS Extender 
Technology to access the full storage 
and flat model speed of your 386. Now 
fully compatible with Windows 3.0 
and DOS 5.0 

PC-lint 386-$239 
PC-lint DOS -OS/2 -$139 

Mainframe & Mini Programmers 

FlexeLint ill obfuscated source 
form, is available for Unix, OS-9, 
VAX/VMS, QNX, IBM VM/MVS, etc. 
Requires only K&R C to compile but 
supports ANSI. Call for pricing. 


Girnpel Softwatr© 

3207 Hogarth Lane, Collegeville, PA 19426 

CALL TODAY (215) 584-4261 Or FAX (215) 584-4266 

30 Day Money-back Guarantee. 

PA add 6% sales tax. PC-lint and FlexeLint are trademarks of Gimpel Software 
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Listing 2 

—Cont’d 



pop 

ax 

; passed in ax or bp 

pop null word 

; adjust stack 

to point 

call 

far address 

recursively call original proc 

pop null word 

; to original 

return point 

pop 

es 

restore 

ret 



pop 

ds 

all 




pop 

si 

general 

push_pop endp 



pop 

di 

use 




pop 

bp 

register 

... 



pop 

dx 

values for 




pop 

cx 

return to 




pop 

bx 

point just following 

; End of File 



pop 

ax 

original call 




popf 


restore flag values 





Figure 1 

Procedure 

CALL Type 

Time in Microseconds 

push pop 

NEAR 

17 

push pop 

FAR 

26 

inline code 

NEAR 

9 

inline code 

FAR 

11 

push_pop versus Inline Push and Pop Speeds 


— 

Easy Sprite Animation 
for MS Windows 

WANIM.DLL makes it easy to incorporate 
video game animation into your own 
Windows programs. 

□ Use with Visual Basic, C/C++, TPW, etc... 

□ Animate sprites on a colored background within a window. 

□ Great for games, education, multimedia. 

□ Algorithmic or bitmap sprites. Or a combination of both. 

□ Change sprite display priority on the fly. 

□ Background scroll and collision detection. 

□ Maintain multiple animation zones within a window. 

□ Easy to understand user manual. 

□ WANIM.DLL is only $69. With source $99. $5 S&H. 

□ No Royalties. Call or write for free demo disk and info. 


AND-XOR Systems 

1107 Fair Oaks Ave., Suite 167 
South Pasadena, CA 91030 
(213)969-4081 Voice 
(213)256-3271 Fax 
□ Request 128 on Reader Service Card □ 



Speed 

push_pop can substantially reduce code size in appropriate 
programming situations. For code where speed is not critical, 
you can use calls to push_pop liberally to reduce code size 
whenever you need to preserve and restore substantial por¬ 
tions of the machine state. This in turn frees you to redirect 
segment registers for string and other operations at will. 

While push_pop is not designed to be used in speed-critical 
loops, it can be employed to advantage at the entry points of 
such loops. Put simply, once you spend the three bytes 
needed to save and restore a broad range of registers, you 
are free to register-optimize the core of the loop to the maxi¬ 
mum. 

To give you a clearer picture of the speed tradeoffs, Figure 
1 provides timings for both the NEAR and FAR versions of 
push_pop, and for standard inline code. All timings are in 
microseconds and were done on a DELL 316LT with a 16MHz 
80386SX microprocessor. The push_pop calls were to an 
empty test_proc procedure. The inline code calls were to 
procedures that executed a set of PUSH instructions, then the 
corresponding POP instructions, then a return. 

Summary 

Unlike PUSHA and POPA, push_pop does not save the stack 
pointer. There is no loss of functionality, however. While the 
PUSHA instruction pushes the value of SP, POPA does not re¬ 
store it, but rather just discards the value. In fact, it has al¬ 
ways seemed odd to me that SP was included in the registers 
handled by the PUSHA and POPA instructions. For POPA to func¬ 
tion effectively, it cannot possibly restore a value to SP during 
the middle of execution of the instruction. The value of SP 
must be evenly incremented during POPA execution to get the 
proper values back into the proper registers. Life holds many 
ironies, though. 

Using push_pop may yield a more subtle benefit as well. 
Disassemblers sometimes have trouble tracing program execu¬ 
tion through jump tables. With push_pop, your code will be 
calling various procedures via temporary addresses built on- 
the-fly from transient data on the stack. This may help make 
disassembly more of a challenge. 

Program optimization involves a balancing of many factors. 
I hope my PUSHA and POPA emulation in software will help 
you nudge the net equation of your own programs a few 
more increments towards the ideal. □ 
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■ Windows Questions and Answers 


47 


Text-Mode Toggling 


N ote: In the June 1992 issue (Vol., 3, No. 6) the second sentence on page 30 
reads: “This relies on the fact that the module handle returned by Load- 
Library This should have said instance handle. Many thanks to Matt Pietrek for 
pointing this out. 

Q l would like to implement switching to 80x25 text mode and back via Alt- 
Enter just like the DOS box. I am planning on writing my own text output 
functions to access the text screen once I am in 80x25 mode. I already manage a 
text window while in graphics mode. When the user hits Alt-Enter I want to flip 
into text mode and display the same text while the user continues to work. Can this 
be done? 

Nathaniel Stitt 
nat@netcom.com 

A Yes it can, but it is a bit tricky. Windows does not provide any direct support 
for 80x25 text mode, and emulation of text mode using the Windows API is 
rather unattractive as well. The big problem is duplicating the ease of putting char¬ 
acters on the screen via video memory. As you know, in text mode all you have to 
do is write your text (plus the attribute byte) to video memory and the text appears. 
The closest solution using the Windows API would be something like buffering the 
characters and using a timer to generate events. With each timer message, you 
would use a text output function (like TextOutf)) to update the display. But this 
would be both slow and unresponsive. 

Programming the video adapter to switch to text mode from Windows might be 
a better solution, but it too has problems. First, if Windows outputs anything to the 
screen after you've switched to text mode, the machine will probably hang, since 
the video driver still believes the display adapter to be in a graphics mode. Even if 
your application prevents Windows from outputting anything to the screen while in 
text mode, it would have to restore the state of the video adapter before returning 
control to Windows. But this is no easy task in protected mode. Simply using inter¬ 
rupt 0x10 (ROM BIOS Video Services), service 0x00 (set video mode) to restore 
Windows' video mode will not suffice, since the internal state of the video adapter 
will have been lost. The ROM BIOS service best suited to this task is service Oxlc, 
save/restore video state. It can save the display adapter’s state to a buffer, or re¬ 
store from a buffer. But it is only available for VGA, and cannot be called from a 
protected-mode Windows application (this means any Windows 3.1 application). 

Paul Bonneau 



Send questions to Paul via Internet 
as bonneauOhyper. hyper, com-, 
from CompuServe: 
>INTERNET:bonneau@hyper. hyper, com-, 
or in care of this magazine at: 

1601 W. 23rd St., Suite 200 
Lawrence, KS 66046-2743. 


Paul Bonneau is the senior software design engineer for Hypercube, Inc, # 7-419 Phillip 
St, Waterloo, Ontario, Canada, N2L 3X2. His current project is HyperChem, a molecular 
modelling software package for Windows. Paul has been developing Windows ap¬ 
plications for 5 years. Much of his expertise was gained at Microsoft, where he imple¬ 
mented a library module used by all of Microso/t's major Windows applications. 




















End your listing errors by subscribing to 

Windows/DOS Developer’s Journal 

code listings on disk. 

...HIGHER 
PRODUCTIVITY! 



Save hours of typing in long code listings 
and make better use of your time. 



Call 913-841-1631 TODAY! 

For only $30* you’ll receive 12 disks 
(one per issue) of Windows/DOS 
Developer’s Journal listings. You’ll 
save 50% off the price of buying the 
disks individually! 

If you don’t already subscribe to Win¬ 
dows/DOS Developer’s Journal- 
order both the magazine and disk for 
$59* 

Subscriptions must be prepaid and 
are available on 5.25" or 3.5" 

MS-DOS format only. 


Windows/DOS 

□ DEVELOPER'S JOURNAL 

1601 W. 23rd. St., Ste. 200 
Lawrence, KS 66046-2743 


*foreign prices vary (call for details) 


The VGA restriction is not too severe, since the VGA (and 
the upwards compatible Super VGA) is probably the most 
popular video adapter among those PCs running Windows. The 
fact that the service is unavailable to a protected-mode Win¬ 
dows application is a little more problematical. However, the 
service is available to a DOS application, be it in the System 
VM or a DOS box. This means you can perform the video 
mode switch in a DOS TSR and use interrupt 0x2f (multiplex 
interrupt) to request the TSR to perform the switch. This tech¬ 
nique was covered in Thomas W. Olsen's article, "Making Win¬ 
dows and DOS Programs Talk,” in the May 1992 issue (vol. 3, 
no. 5). 

The last remaining problem - preventing Windows from 
writing to the screen when the video adapter is in text mode 
- is largely addressed by using a full-screen window that is 
topmost in the z order. Under 3.0, any active window would 
be topmost, but in 3.1 there are two z orders. First, any win¬ 
dow created with the extra style US_EX_T0PM0ST will lie 
above any window not possessing the style, be it active or 
not; second, among those windows created with WS_EX_T0P- 
M0ST, the active window will be at the top of the window 
stack. By allowing your application to enter text mode only 
when it is the active application, and by making your main 
window full screen and topmost ( SetWindowPos() and the 
HUND_T0PM0ST flag will make a window behave as if it was 
created with the US_EX_T0PM0ST style), you can ensure that, 
when your application is in text mode, it will obscure all other 
windows. This will prevent well-behaved applications from 
outputting to the screen. An ill-behaved application could use 
GetDC(NULL) to get a screen device context and overwrite 
your window. You can prevent this by not yielding control of 
the processor, which means no calls to PeekMessage() or 
GetMessage (), and therefore no messaged keyboard input. 

If your application must coexist with such an ill-behaved 
application, then it is probably better to write the text-mode 
part as a DOS application, use a TSR to switch video modes, 
and supply the buffer to the Windows application (Thomas 
Olsen's article also explains how to supply a DOS buffer ad¬ 
dress to a Windows application). For the sake of simplicity, I 
am going to assume the first case, that you don't have to 
worry about an ill-behaved application. In either case, the 
video mode switching part of the TSR will remain the same. 

Listing 1 is the C code for the TSR, and Listing 2 defines the 
interface. main() is essentially the same as Thomas Olsen's: 
the difference is that before installing the TSR, the code first 
checks to see if a display adapter capable of handling the 
save/restore video state service is available, then makes sure 
that a previous instance of the TSR has not already been 
loaded. 

The save/restore video state service has three subservices, 
each of which operates on any combination of three different 
types of video state information: video control registers, ROM 
BIOS data, and hardware DAC state. Subservice 0 returns the 
size of the buffer (in 64-byte blocks) required to hold the state 
information; subservice 1 saves the state information to a 
buffer; and subservice 2 restores the state from a buffer. 

main() uses subservice 0 to kill two birds with one stone. 
In addition to returning the size of the buffer required to hold 
all three types of state information, the subservice signals the 
presence (if AL contains Oxlc on return) or absence of a 
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device capable of performing the service, if no such device is 
present, or if the buffer required exceeds the size of the static 
buffer used, then main() immediately returns without install¬ 
ing the TSR. 


The real work is performed in the function IntHandler (), 
by the three services cmdlsLoaded, cmdEnterText, and cmd- 
ExitText. The cmdlsLoaded service returns Oxff in AL to indi¬ 
cate that the TSR has been loaded already. If it hasn’t, then 


/*****************************************************/ 
/* texttsr.c */ 

/* -- This TSR Is used to enter and leave 80x25 text */ 
/* mode. */ 

/* -- Windows video state Is saved on entry to text */ 
/* mode and restored on exit. */ 

/*****************************************************/ 

/*****************************************************/ 

/* Header files. */ 

/*****************************************************/ 

linclude <dos.h> 

linclude <stdlib.h> 

linclude <malloc.h> 

linclude "texttsr.h" 

/*****************************************************/ 

/* Constants. */ 

/*****************************************************/ 

Idefine cbBlock 0x0040 

Idefine cblkMax 0x0010 

Idefine cbState (cbBlock * cblkMax) 

Idefine pbNull ((unsigned char *)0) 

f***************************************************** j 

/* Globals. */ 

I *****************************************************j 

/* Imports. */ 

extern unsigned end; 

/* Internal. */ 

void (Interrupt far * pfnOld)(); /* Next in chain. */ 

/* Video state buffer. */ 

unsigned char rgbState[cbState]; 

/* Previous video mode. */ 
unsigned char bModeSav; 

/* Number of 64 byte blocks required to save state. */ 
unsigned int cblk; 

^***************************************************** ^ 
/* Routines. */ 

/*****************************************************/ 

void Interrupt far 

IntHandler(int es, int ds, Int di, int si, int bp, 
int sp, int bx, int dx, Int cx, int ax, int ip, 
int cs, int flags) 

y*****************************************************/ 
/* -- Multiplex interrupt handler. */ 

j*****************************************************j 


switch (ax) 

{ 

default: 

_chain_intr(pfn01d); 
break; 

case cmdlsLoaded: 
ax = OxOOff; 
break; 

case cmdEnterText: 

{ 

unsigned char * pb; 


pb * rgbState; 
asm 

{ 

/* Fill hardware state buffer. */ 

push ds 

pop es 

mov bx, pb 

mov cx, 0x0007 

mov ax, OxlcOl 

int 0x10 


Listing 1 (texttsr.c) 

/* Remember current video mode. */ 

mov ah, OxOf 

Int 0x10 

mov bModeSav, al 

/* Set 80x25 text mode. */ 
mov ax, 0x0007 

Int 0x10 

} 

} 

break; 

case cmdExitText: 

i 

unsigned char * pb « rgbState; 


{ 

/* Restore previous video mode. */ 
mov ah, 0x00 

mov al, bModeSav 

int 0x10 

/* Restore previous VGA state. */ 


mov 

cx, 0x0007 

push 

ds 

pop 

es 

mov 

bx, pb 

mov 

ax, 0xlc02 

int 

0x10 


break; 

} 


□ 

TCP/IP for Windows 

j 

3 


Network Windows™ Software Development Kit 


□ Five APIs: Berkeley Sockets 
(Client & Server), RPC/XDR, 

Network Windows (NFS 
Client), TELNET and FTP, 

Over 130 routines available. 

□ Support for all Microsoft 
Windows 3.x modes. 

□ May coexist with Novell 
Netware (Packet driver) 
or Microsoft LAN Manager 
(NDIS driver). 

□ Shared library support in 
the form of small and fast 
Dynamic Link Libraries (DLLs). For more information 


Supports C, C++, 
Visual Basic and 
Turbo Pascal 


NFS RPC 


Sockets j $495 


□ 

□ 

□ 

□ 

□ 


Support for Ethernet and 
IBM Token Ring. 

Works with network 
adapters from 3COM, 
Western Digital, Xircom, 

IBM and others. 

Source code samples for 
Telnet and Ping included. 

Windows-based installation. 

Three Windows applications 
included: 

♦ Network Configuration 

♦ Network Monitor 

♦ NFS Manager 


call: 

(408) 741 0781 


or fax: 

(408) 741 0795 



distinct 


Distinct Corporation 
P.O. Box 3410 Saratoga, CA 95070 


□ Request 336 on Reader Service Card □ 
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Listing 1 — Cont'd 


Int 

maln(vold) 

y*****************************************************y 
/* — Entry point. */ 

{ 

unsigned far * IpuwUpper; 

unsigned Int cpgf, cpgfMax, cbStack; 

unsigned char bVal; 

/* Check to see If we have been loaded already. */ 
asm 

{ 

mov ax, cmdlsLoaded; 

Int 0x2f 

mov bVal, al 

} 

If (bVal == Oxff) 
return 0; 

/* Make sure adaptor supports save/restore */ 

/* state. Use the get buffer size, returns Oxlc */ 
/* in AL for success. */ 


{ 

mov 

mov 

Int 

mov 

mov 

} 


ax, OxlcOO 
cx, 0x0007 
0x10 

cblk, bx 
bVal, al 


if (bVal 1* Oxlc || 
return -1; 


cblk > cblkMax) 


♦ i; 


/* Install TSR. */ 

IpuwUpper = &end; 

cbStack * ((stackavail() + 2048) / 2048) * 2048; 
cpgf » (FP_SEG(IpuwUpper) - _psp) + 

(FPJJFF(IpuwUpper) + cbStack) / 16 
pfnOld ■ jJos_getvect(0x2f); 

_dos_setvect(0x2f, IntHandler); 
”dos_setblock(cpgf, _psp, icpgfMax); 

~dos_keep(0, cpgf); 
return -1; 


/* End of File */ 


Listing 2 (texttsr.h) 


y*****************************************************/ 
/* texttsr.h */ 
/* -- External interface to video state switcher */ 
/* tsr. */ 


Idefine cmdlsLoaded OxdOOO 
Idefine cmdEnterText OxdOOl 
Idefine cmdExitText 0xd002 


/* End of File */ 


(hopefully) no TSR will intercept the interrupt, and the service 
returns 0. This is used to determine if a particular TSR has 
been loaded or not. 

The cmdEnterText service first saves the video state. It 
then uses service OxOf to obtain and save the current video 
mode before using service 0x00 to set the mode to 0x07, 
80x25 monochrome text. The cmdExitText service first res¬ 
tores the previous video mode, again using service 0x00, then 
restores the video state. 


Listing 3 (textmode.c) 


A****************************************************/ 


/ 

/* textmode.c 

/* -- Sample program demonstrates 80x25 mode from 
/* within Windows. 

j ************************************************* 


linclude <windows.h> 
linclude <memory.h> 
linclude "texttsr.h" 

/*****************************************************/ 
/* Prototypes. */ 

/*****************************************************/ 
VOID 
VOID 
VOID 
VOID 
VOID 


ExitTextMode(HWND); 
EnterTextMode(HWND); 

HandleKey(WPARAM); 
SetCursorXY(char, char); 
SetLpvWCw(VOID FAR *, WORD, UINT); 


LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM); 


/********* 



Idefine szApp 
Idefine dxText 
Idefine dyText 
Idefine cbText 


"Video" 

80 

25 

(dxText 


dyText * sizeof(WORD)) 


*****************************************************/ 


/ 

/* Globals. 


*/ 


*****************************************************/ 


/ 

/* Imports. */ 
extern WORD B000H; 


/* Local, 

LPWORD 

UINT 

char 

BOOL 

BOOL 


*/ 


lrgwText, lrgwSav; 
selVGA; 

x. y; 

flnTextMode; 

fWantTextMode; 


RECT 


rectWindow; 


/*****************************************************/ 
/* Routines. */ 

/*****************************************************/ 
int FAR PASCAL 

WinMain(HINSTANCE bins, HINSTANCE hlnsPrev, LPSTR lsz, 
Int wShow) 
y************ 

/* -- bins 
/* -- hlnsPrev 
/* - lsz 
/* -- wShow 

j ***************************************************** 


This program's instance. */ 
Previous program's instance. */ 
Command line I was invoked with. */ 
ShowWindow command. */ 

/ 


MSG msg; 

HGLOBAL hmemText 
BYTE bLoaded; 
HWND hwnd; 


NULL; 


/* Make sure TSR is loaded. */ 
asm 

{ 

mov ax, cmdlsLoaded 

int 0x2f 

mov bLoaded, al 

} 

if (bLoaded 1= Oxff) 

{ 

MessageBox(NULL, 

"Texttsr has not been loaded. Please run" 
" texttsr.exe before entering Windows.", 
szApp, MBJCONHAND | MB__0K); 
goto WinMainExit; 

} 

if (hlnsPrev =* NULL) 

{ 

WNDCLASS wcs; 
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Listing 3 presents textmode, c, the code for TextMode, a 
sample application that uses the TSR. TextMode uses the ex¬ 
ported symbol_ B000H to access the first page of text mode 


video memory (see the second question in the Q&A column of 
the June 1992 issue, vol. 3, no. 6). Once in text mode, each 
character written to this memory is immediately displayed on 


/* First Instance Is responsible for */ 

/* registering a class. */ 
wcs.style = CS_HREDRAW | CS_VREDRAW; 
wcs.lpfnWndProc = WndProc; 
wcs.cbClsExtra « 0; 
wcs.cbWndExtra * 0; 
wcs.hlnstance * bins; 
wcs.hlcon = NULL; 

wcs.hCursor = LoadCursor(NULL, IDC ARROW); 
wcs.hbrBackground = (HBRUSH)(C0L0R~WIND0W + 1); 
wcs.lpszMenuName * NULL; 
wcs.lpszClassName = szApp; 

If (!RegisterClass(iwcs)) 
goto WinMainExit; 

} 

/* Initialize the video memory. */ 
hmemText = GlobalAlloc(GMEM_MOVEABLE, cbText); 
if (hmemText = a NULL) 
goto WinMainExit; 

lrgwSav = (LPWORD)GlobalLock(hmemText); 
lrgwText = 

(LPWORD)MAKELONG (0x0000, (WORD) &J000H); 
SetLpvWCw(lrgwSav, 0x0720, dxText * dyText); 

/* Create the main window. */ 
hwnd = CreateWindow( 
szApp, 
szApp, 

WS 0VERLAPPEDWIND0W, 

CW~USEDEFAULT, 

CW~USEDEFAULT, 

CW _ USEDEFAULT, 

CW'USEDEFAULT, 

NULL, 

NULL, 

bins, 

NULL); 

if (hwnd *= NULL) 
goto WinMainExit; 

ShowWindow(hwnd, wShow); 

while (GetMessage(&msg, NULL, 0, 0)) 

{ 

TranslateMessage(&msg); 

DispatchMessage(&msg); 

} 


WinMainExit: 

if (hmemText != NULL) 
Global Free(hmemText); 
return 0; 

} 


LRESULT CALLBACK 


WndProc(HWND hwnd, UINT wm, WPARAM wParam, 

LPARAM IParam) 

/*****************************************************/ 


/* -- WindowProc for our main window. */ 
/* — hwnd : Main window. */ 
/* — wm : Message number. */ 
/* — wParam, IParam : Message parameters. */ 


{ 

switch (wm) 


default: 

break; 


case WM_ACTIVATE: 

/* Tf we are being activated, and were */ 

/* deactivated while in text mode restore */ 
/* It. If we are being deactivated, make */ 
/* sure to exit text mode first. */ 
if (wParam) 


Listing 3 — Cont’d 

i 

If (fWantTextMode) 

EnterTextMode(hwnd); 

} 

else 

{ 

ExitTextMode(hwnd); 

} 

break; 

case WM_DESTR0Y: 

/* Just in case no WM_ACTIVATE with */ 

/* wParam == 0 was received. */ 
ExitTextMode(hwnd); 

PostQuitMessage(O); 
break; 

case WM_PAINT: 

{ 

PAINTSTRUCT wps; 

/* Do nothing but get it off of the queue. */ 
BeginPaint(hwnd, &wps); 

EndPaint(hwnd, Awps); 

} 

return 0; 

case WM_ERASEBKGND: 

/* Don't erase while in text mode! */ 
if (flnTextMode) 
return 1L; 
break; 

case WM SYSCHAR: 

if TwParam != VK__RETURN) 
break; 


TCP/IP for Windows 



Applications: 

TELNET (VT100,220), FTP, 
SMTP/Mail, Statistics, PING, 
BIND, TFTP, Custom 

Developer Tools: 

■ Berkeley 4.3BSD socket 
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■ ONC RPC/XDR 

■ WinSNMP API 
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Listing 3 — Cont’d 


/* User wants to toggle mode. */ 
fWantTextMode /s * TRUE; 
if (fWantTextMode) 

EnterTextMode(hwnd); 

else 

ExitTextMode(hwnd); 
return OL; 

case WMJCEYDOWN: 

/* Our toy editor. */ 

HandleKey(wParam); 
return 0; 

} /* End switch wm. */ 

return DefWindowProc(hwnd, wm, wParam, IParam); 

} 

VOID 

SetCursorXY(char x, char y) 

/*****************************************************/ 
/* -- Set the cursor position. */ 

/*****************************************************/ 

{ 


mov 

mov 

mov 

mov 

int 

} 


dl, x 
dh, y 
bx, 0 
ah, 0x02 
0x10 


VOID 

SetLpvWCw(V0ID FAR 


lpv, WORD uw, UINT cw) 


/*****************************************************i 

/* — Utility routine. Fill memory with 16-bit */ 
/* words. */ 
/* — lpv : Array to fill. */ 
/* -- uw : Word to fill with. */ 


Would you know one 
if you saw one? 





Protect the integrity of your C-language programs with C-Verify " 
and C-Debug'," two utilities from Softran'." 

C-Verify, Softran’s newest product, is a coverage analyzer for 
testing C-language programs. It generates a report of every branch 
taken—and not taken—through your program, assuring you of 100 
percent test coverage! 

C-Debug is a pointer checker which, according to Unix Review, 
“excells at finding pointer problems in code. ’’ When used with 
C-Verify, it offers you the highest quality assurance possible in 
C-language programming. C-Verify and C-Debug can be run at the 
same time and work with all C compilers. Both are available for MS- 
DOS and UNIX systems. To order, call 1-800-462-3932. (In Canada, 
call 1-708-505-3456.) 


Softran 

CORPORATION 
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/* — cw : Number of words to write. */ 

/*****************************************************/ 


segment 

VOID _based(sb) 


sb; 

pv; 


sb = (_segment)HIW0RD(lpv); 

pv = (VOID _based(sb) *)L0W0RD(lpv); 


mov 

mov 

mov 

mov 

rep 

} 


es, sb 
di, pv 
ax, uw 
cx, cw 
stosw 


VOID 

EnterTextMode(HWND hwnd) 

/*****************************************************/ 
Enter 80x25 text mode. 

Resize the window to full screen, to prevent 
any other window from being draw (will cause 
true nastiness when VGA is in text mode!), 
hwnd : Main window. 
/*****************************************************/ 


if (flnTextMode) 
return; 

ShowCursor(FALSE); 

/* Enter text mode. */ 
asm 


i 

mov 

int 

} 


ax, cmdEnterText 
0x2f 


/* Restore previous text. */ 

_fmemcpy(lrgwText, lrgwSav, cbText); 

/* Restore cursor position. */ 

SetCursorXY(x, y); 

/* Save old window position. */ 

GetWindowRect(hwnd, ArectWindow); 

/* Make full-screen and topmost. */ 

SetWindowPos(hwnd, HWND TOPMOST, 0, 0, 
GetSystemMetr1cs(SM_CXSCREEN), 
GetSystemMetrics(SM_CYSCREEN), SWP_N0ACTIVATE); 

flnTextMode = TRUE; 

} 

VOID 

ExitTextMode(HWND hwnd) 

/***************************************************** j 

/* -- Re-enter previous VGA mode Windows was in. */ 
/* -- hwnd : Main window. */ 

/A****************************************************/ 


if (IflnTextMode) 
return; 


{ 

mov ax, cmdExitText 

Int 0x2f 

i 

flnTextMode - FALSE; 

ShowCursor(TRUE); /* Restore cursor. */ 

/* Restore old window position. */ 

SetWindowPos(hwnd, HWND_N0T0PM0ST, 
rectWi ndow. 1 eft, rectiii ndow. top, 
rectWindow.right - rectWindow.left, 
rectWindow.bottom - rectWindow.top, 
SWP_N0ACTIVATE); 

Inval1dateRect(NULL, NULL, TRUE); 
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the screen. The application implements an extremely primitive tion the cursor and can enter characters at the cursor position, 
text editor, so that the user can use the arrow keys to posi- The key sequence Alt-Enter toggles in and out of text mode. 


VOID 

HandleKey(WPARAM wKey) 

/*****************************************************/ 
/* — Handle a key event. */ 

/*****************************************************/ 

{ 

If (IfWantTextMode || IflnTextMode) 
return; 

switch (wKey) 

{ 

default: 

{ 

WORD wVIdeo; 

int 1w; 

wVideo = 0x0700 | (wKey & OxOOff); 

1w ■ x + y * dxText; 

1rgwText[iw] = lrgwSav[iw] = wVideo; 
if (++x >= dxText) 

{ 

x = 0; 

If (++y >= dyText) 
y * 0; 

} 

} 

break; 
case VK UP: 

if T-y < 0) 

y ■ dyText - 1; 
break; 

case VK_D0WN: 

if 7++y >= dyText) 
y - 0; 
break; 

case VK LEFT: 
if T-x < 0) 

x ■ dxText - 1; 
break; 

case VK_RIGHT: 

If T++x >= dxText) 
x = 0; 
break; 

case VK_PRI0R: 

y = 0 ; 

break; 

case VK_NEXT: 

y = dyText - 1; 
break; 

case VK_H0ME: 
x =”y = 0; 
break; 

case VK_END: 

x ■ dxText - 1; 
y = dyText - 1; 
break; 

case VK_RETURN: 
x *~0; 

If (++y >= dyText) 

{ 

y * dyText - 1; 

/* Scroll the window. */ 
asm 

< 


mov 

ax, 0x0601 


mov 

bh, 0x07 


mov 

cx, 0x0000 


mov 

dl, dxText - 

1 

mov 

dh, dyText - 

1 

Int 

0x10 
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Listing 3 — Cont’d 

} 

break; 

} /* End switch wKey. */ 

SetCursorXY(x, y); 

i 

/* End of File */ 


Listing 4 (makefile) 

## makefile ## 

## — Project file for textmode program. ## 

####################################################### 
all: textmode.exe texttsr.exe 

textmode.obj: textmode.c texttsr.h 

cl -c -AM -G2w -Od -Zdpe -W3 -DSTRICT textmode.c 

texttsr.exe: texttsr.c texttsr.h 
cl -AS -W3 -Zi texttsr.c 

textmode.exe: textmode.obj textmode.def textmode.rc 
link /N0D/m textmode,,, libw mlibcew, textmode.def 
mapsym textmode 
rc textmode 
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change the column width. The table can also serve as a database 
front-end. It maintains a cache of the current range of data and will ask 
the application to supply new data. 

ToolsKan - Status Bar (for context sensitive help) 

Stretchable width fields will resize to fit Progress meter showing (%) of 
completion; date and/or time in Windows' configured internationalized 
format; and NumLock, Caps Lock, ScrollLock key states. 


ToolsKan - Toolbox 
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Listing 5 (textmode.def) 

;; textmode 

def 

» > 

;; -- Linker definition file 

for textmode program. ;; 

NAME 

TextMode 


DESCRIPTION 

'TextMode' 


EXETYPE 

WINDOWS 


STUB 

'WINSTUB.EXE' 


CODE 

PRELOAD MOVEABLE 

DISCARDABLE 

DATA 

PRELOAD MOVEABLE 

MULTIPLE 

HEAPSIZE 

1024 


STACKSIZE 

10240 


EXPORTS 



WndProc 

@1 
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During initialization, the multiplex interrupt is used with the 
and Is Loaded service to test if the TSR is present. If not, a 
message box warns the user and the application exits. A buff¬ 
er is allocated to save the text mode memory, so that when 
the user re-enters text mode, the text screen can be restored. 
Two global variables maintain TextMode 's state: flnTextMode 
keeps track of the video adapter's current mode, while fUant- 
TextMode is the toggle that tracks the user's last request. Both 
variables are needed since the user may activate another ap¬ 
plication with the keyboard (e.g., Alt-Tab) when in text mode. 
The video adapter must be restored to the previous mode 
before the newly active window gets a chance to perform any 
screen output. When TextMode is reactived, it sees that f- 
UantTextMode is still set, so that the video adapter can be 
returned to text mode. 

Two functions, EnterTextModeO and ExitTextModef) per¬ 
form internal housekeeping and communicate with the TSR. 
EnterTextModeO removes the cursor, since otherwise, if the 
user moves the mouse, a bunch of ''snow" will result. Enter¬ 
TextModeO calls the TSR with service cmdEnterText and res¬ 
tores the video text memory from the save buffer. The func¬ 
tion SetCursorXY() is called to restore the previous position 
of the text cursor, using service 0x02. Lastly, the window is 
made full screen and topmost using SetUindowPos(). Since 
the window must be active at this point, it will be at the top 
of the z order. Before the call to SetCursorXY (), the current 
position is saved so the cursor can be restored when text 
mode is exited. 

ExitTextMode() uses service cmdExitText to restore the 
previous video mode. It redisplays the cursor and repositions 
the window from the saved rectangle. It also calls 
InvalidateRect(NULL, NULL, TRUE) to generate a paint 
event for the entire screen, since otherwise, remnants of the 
black text screen will be visible. 

TextMode’s window procedure calls ExitTextMode() when 
it receives the WM_DESTROY message, since this message can 
be sent without a prior notification that the window is being 
deactivated. No action is taken on receipt of a paint message 
except to call BeginPaint() and EndPaint() to remove the 
message from the queue. If the application is in text mode, 
NM_ERASEBKGND returns 1 to prevent Windows from attempt¬ 
ing to erase. 

The Alt-Enter combination generates a NM_SYSCHAR event, 
which is used to toggle fUantTextMode. The value 0 is 
returned to prevent DefUindowProc() from beeping in 
response to the otherwise unknown Alt-key combination. 
HandleKeyO implements the toy editor, which keeps track of 
the cursor position and inserts characters into the appropriate 
location in the first page of text video memory and the save 
buffer. 

Finally, Listing 4 is the makefile for both the TSR and the 
sample TextMode application; Listing 5 is the linker definition 
file for TextMode-, and Listing 6 is an empty resource file re¬ 
quired by the resource compiler to mark TextMode as a Win¬ 
dows 3.1 application. 

Paul Bonneau 

bonneauOhyper.hyper.com 

From CompuServe: >INTERNET:bonneau@hyper.hyper.com □ 
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Programming Style 



Compile-Time Genericity 

Part 2 

Errata 

In Part 1 of this series, the statement macro 

#define swap(a, b, t) \ 

{ t _t; t = (a); (a) = (b); (b) = _t 

has an error in it. The t in the first assignment should be _t. 

Genericity is a family of techniques for writing reusable software. The techniques 
fall into two broad categories that I call “run-time” genericity and "compile-time” 
genericity. 

A run-time generic function is a single function that implements a single concep¬ 
tual operation on arguments of different types. For example, the standard C library 
function qsort is a run-time generic that sorts arrays with records of any type 
according to almost any sorting criteria. When you call qsort to sort a particular 
array in a particular order, you must pass arguments (at run-time) that correctly 
characterize the array's structure and the sorting criteria. I first presented run-time 
generics over a year ago (see "Generic Functions in C and Pascal," TECH Specialist, vol. 
2, no. 3: March 1991), and revisited them in my most recent prior column ("Compile- 
Time Genericity, Part 1,” Windows/DOS Developer's Journal, vol. 3, no. 6: June 1992). 

In contrast, a compile-time generic function is a specification for a family of func¬ 
tions implementing a single algorithm applicable to operands of a variety of types. 
The specification tells the translator how to instantiate (manufacture) a specific func¬ 
tion that applies the generic algorithm to operands of a particular type. Typically, 
each instance of the compile-time generic is a distinct function at a distinct object- 
code address. 

In part 1 of this series, I discussed using function-like macros for simple generic 
functions in C and C++, calls to macros like abs(x) and min(x, y) expand the entire 
body of the function in-line at the calling point. Using macros as generics has two 
principle drawbacks: 

1. Macro calls may evaluate their arguments more than once, producing un¬ 
wanted run-time side-effects, and 

2. In-line expansion of large generic functions wastes code space. 

Thus, I began exploring techniques for generating out-of-line generic functions. 
Let's resume the discussion with my last example from part 1, which uses macros to 
implement out-of-line generics. 


Dan Saks is the founder and principal of Saks & Associates, which offers consulting 
Dan Saks and training in C++ and C He is secretary of the ANSI/ISO C++ committee and a 
contributing editor for The C Users Journal. He and Thomas Plum are coauthors of C++ 
Programming Guidelines and codevelopers of Suite++™: the Plum Hall Validation Suite 
for C++. You can write to him at 393 Leander Dr., Springfield, OH 45505-4906, or 
dsaks@wittenberg.edu (Internet), or call (513) 324-3601. 

















Out-of-Line Generics Using Macros 

For each out-of-line generic function, you must write a pair 
of macros - one that declares the function heading, and 
another that defines the function body. For example, Listing 1 
(presented as Listing 4 in part 1) shows the macro definitions 
for a generic version of my arrayanp function that compares 
two arrays of the same type. The macro ar- 
rayanp_declare(T) expands to a function declaration for a 
function named arraycmp that compares arrays of type T. The 


Listing 1 (arraycmp.h) 

♦define arraycmp_declare(T) \ 

int arraycmp (const T al[], const T a2[], size_t n) 

Idefine arraycmp_implement(T) \ 
arraycmp_declare(T) \ 

( \ 

size_t i; \ 
int cmp; \ 

\ 

for (i = 0; i < n; ++i) \ 

if ((cmp = T ♦♦ cf(al[i], a2[i])) != 0) \ 
return cmp; \ 
return 0; \ 

} 

/* End of File */ 

A General-Purpose Array Comparer in C and C++ 
Using Compile-Time Genericity 


COMPUTER SYSTEMS 
ANALYST 

Growing, international, technical publishing company 
is seeking a full-time position which includes XENIX 
system administration; software development and 
maintenance; customer technical support; and 
hardware installation and maintenance. Candidates will 
be familiar with application development using modern 
database tools, be willing to relocate, be able to work 
within a team, and maintain their own code in addition 
to the code developed by others. B.S. in computer 
science or equivalent experience required. Interest in 
technical writing preferred. 

RS.D Publications, Inc. is an equal opportunity employer 
concerned with creating a pleasant work atmosphere. 

If you are looking for an enjoyable working environment 
with a reliable company, please send a cover letter and 
resume to; 

Kelly Calvert, Human Resources Manager 

1601 West 23rd St., Suite 200 
Lawrence, KS 66046 



publications, inc. 


macro arraycmp_implement(T) expands to a complete defini¬ 
tion (a heading and body) for the function declared by ar- 
raycmp_declare(T). 

In a program consisting of a single source file, you only 
need to call the arraycmp_implement macro. Listing 2 
(presented as Listing 3 in part 1) shows a simple demonstra¬ 
tion program with three instantiations of arraycmp - for ar¬ 
rays of int, double, and char *. For example, the call 

arraycmp_impl ement (int); 

in Listing 2 expands to the function definition shown in Listing 3. 

Notice that the macro definition for arraycmp_imple- 
ment(T) uses the token-pasting operator ## in the line 

if ((cmp = T ## cf(al[i], a2[i])) != 0) \ 


Listing 2 

♦include <stdio.h> 

♦include <string.h> 

♦include "arraycmp.h" /* from Listing 1 */ 

/* 

* arraycmp for int arrays 
*/ 

♦define intcf(i, j) ((i) - (j)) 
arraycmp_implement(int); 

/* 

* arraycmp for double arrays 
*/ 

inline int doublecf(double d, double e) 

{ 

return d < e ? -1 : d == e ? 0 : 1; 

) 

arraycmp_implement(double); 

/* 

* arraycmp for const char * arrays 
*/ 

typedef const char *str; 

♦define strcf(s, t) strcmp((s), (t)) 
arraycmp_implement(str); 

/* 

* Sample calls to arraycmp... 

*/ 

♦define DIM(a) (sizeof(a) / sizeof(a[0])) 

int a[] - (1, 2, 3, 4, -5); 
int b[] « (1. 2. 3, 4, 4); 

double f[] = (1, 2, 3, 4, 5}; 
double g[] = (1, 2, 3, 3, 4); 

const char *s[] = ("123", "456“, “789“}; 
const char *t[] = ("123", "789", "456"}; 

int main(void) 

{ 

printf(“a vs. b = %d\n", arraycmp(a, b, DIM(a)-l)); 

printf("a vs. b = %d\n", arraycmp(a, b, DIM(a))); 

printf("f vs. g = %d\n“, arraycmpjf, g, DIM(f))); 

printf("s vs. t = %d\n", arraycmp(s, t, DIM(s))); 

return 0; 

} 

/* End of File */ 
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When you call the macro, the preprocessor substitutes the 
actual value for T and splices the characters cf to the end of 
it, forming a new identifier. For example, the if statement in 
the macro call arraycwp_implement(int) expands as 

if ((cmp = intcf(al[i], a2[i])) != 0) 

Since intcf is itself a macro, it in turn expands as 

if ((cmp = ((al[i]) - (a2[i]))) != 0) 

as shown in Listing 3. Had I omitted the ## from the line and 
written simply 

if ((cmp = Tcf(al[i], a2[i])) != 0) \ 

then the preprocessor would not recognize the T as the 
macro argument, so it would not substitute the actual value 
of T into Tcf. The line would always expand to call a (probab¬ 
ly nonexistent) function called Tcf. 


Listing 4 (main.c) 

^include "arraycmp.h" /* from Listing 1 */ 

arraycmp_declare(double); 
arraycmp_declare(int); 

void f(), g(); 

int a[10], b[10]; 
double x[20], y[20]; 

int main() 

( 

if (arraycmp(a, b, 10) ** 0) 
f(); 

if (arraycmp(x, y, 20) ** 0) 

9 (); 

r 

/* f.c */ 

finclude "arraycmp.h" /* from Listing 1 */ 

arraycmp_implement(int); 

int m[30], n[30]; 

void f() 

{ 

while (arraycmp(m, n, 30) != 0) 

) 

/* g.c */ 

linclude “arraycmp.h" /* from Listing 1 */ 

arraycmp_implement(double); 
arraycmp_declare(int); 

double u[10], v[10]; 
int p[40], q[40]; 

void g() 

{ 

if (arraycmp(u, v, 30) !- 0) 
while (arraycmp(p, q, 40) > 0) 

) 

/* End of File */ 


Listing 3 

int arraycmp(const int al[], const int a2[], size t n) 

{ 

size_t i; 
int cmp; 

for (i =0; i < n; ++i) 

if ((cmp = ((a 1 [i]) - (a2[i]))) !* 0) 
return cmp; 
return 0; 

} 

// End of File 


Listing 5 (cf.h) 

inline int cf(int i, int j) 

{ 

return i - j; 

) 

inline int cf(double d, double e) 

( 

return d < e ? -1 : d «« e ? 0 : 1; 

) 

inline int cf(const char *s, const char *t) 

{ 

return strcmp(s, t); 

I 

/* End of File */ 
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Listing 6 (generic.h) 

(Ifndef GENERIC H 
Ideflne GENERIC~H 

(define name2(nl,n2) nl((n2 

(define declare(a.type) name2(a,declare)(type) 

(define implement(a.type) name2(a,implement)(type) 

(endif 

/* End of File */ 


Listing 7 (arraycmp.h) 

(include <generic.h> 

(define arraycmp(T) name2(T, arraycmp) 

Idefine arraycmpdeclare(T) \ 
int arraycmp(T) \ 

(const T al[], const T a2[], size_t n) 

(define arraycmpimplement(T) \ 
arraycmpdeclare(T) \ 

( \ 

size_t i; \ 
int cmp; \ 

\ 

for (i * 0; i < n; ++i) \ 

if ((cmp * name2(T, cf)(al[i], a2[i])) != 0) \ 
return cmp; \ 
return 0; \ 

} 

/* End of File */ 
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The expansion of arraycmp_implement(T) assumes that 
an element comparison function named r##c/ has already 
been declared. That function could be implemented as a 
macro, a function, or (if you're writing in C++) as an inline func¬ 
tion. For demonstration purposes, I used both macros and an 
inline function in Listing 3. But in a C program you cannot use 
inlines, and in a well-written C++ program you would not use 
macros. 

C or C++? 

In a program consisting of multiple source files, you typical¬ 
ly call arraycmp_implement for a given type argument in only 
one of the files. In every other file that calls arraycmp for that 


Listing 8 

(include <stdio.h> 

(include <string.h> 

(include “arraycmp.h” /* from Listing 7 */ 
/* 

* arraycmp for int arrays 
*/ 

(define intcf(i, j) ( (i ) - (j) ) 
implement(arraycmp, int); 

/* 

* arraycmp for double arrays 
*/ 

int doublecf(double d, double e) 

{ 

return d<e?-l :d==e?0: 1; 

) 

implement(arraycmp, double); 

/* 

* arraycmp for const char * arrays 
*/ 

typedef const char *str; 

(define strcf(s, t) strcmp((s), (t)) 
implement(arraycmp, str); 

/* 

* Sample calls to arraycmp... 

*/ 

(define DIM(a) (sizeof(a) / sizeof(a[0])) 

int a[] = (1, 2, 3, 4, -5); 
int b[] = (1, 2, 3. 4, 4); 

double f[] = (1, 2, 3, 4, 5); 
double g[] = (1, 2, 3, 3, 4); 

const char *s[] = {"123\ “456“, "789"}; 
const char *t[] = {"123", "789", "456"}; 

int main(void) 

{ 

printf("a vs. b = %d\n", 

arraycmp(int)(a, b, DlM(a)-l)); 
printf("a vs. b = %d\n", 

arraycmp(int)(a, b, DIM(a))); 
printf("f vs. g » %d\n", 

arraycmp(double)(f, g, DIM(f))); 
printf("s vs. t = %d\n", 

arraycmp(str)(s, t, DIM(s))); 
return 0; 

) 

/* End of File */ 
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type argument, you call arraycmp_declare. For example, List¬ 
ing 4 outlines a program consisting of three source files. In this 
program, main.c uses arraycmp_declare to declare (but not 
define) an arraycmp for int arrays, and also an arraycmp for 
double arrays. In the main function, calling arraycmp for int 
array arguments invokes the arraycmp function defined by 
the macro call arraycmp_implement(int) in file f.c. Calling 
arraycmp for double arrays invokes the function defined by 
arraycmp_implement(double) in file g.c. File g.c also 
declares and calls the arraycmp function for int arrays imple¬ 
mented in /. c. 

Unfortunately, the program outlined in Listing 4 does not 
compile as C. The problem is that you can only declare one 
arraycmp function per C source file because every instantia¬ 
tion of arraycmp has the same name. However, the program 
compiles as C++ because C++ permits function name overload¬ 
ing. (Function name overloading is the ability to declare more 
than one function with the same name in the same scope. 
The compiler differentiates overloaded functions by their argu¬ 
ment lists.) 

In fact, the arraycmp macros defined in Listing 1 have 
stylistic inconsistencies that suggest that I couldn’t remember 
which language I was programming in. 1 went to some effort 
using the ## operator to manufacture the name of the com¬ 
parison function to avoid overloading comparison function 
names, yet I did not use ## to avoid overloading the name 
arraycmp. 

If I were writing only C++, I could have omitted the T ## 
from Listing 1 and simply overloaded all the comparison func¬ 
tion names. Listing 5 shows the comparison functions from 
Listing 2 rewritten in a consistent C++ style - as overloaded 
inline functions named cf. 

For the arraycmp macros to work in C, they must give each 
function instantiation a unique name. For example, arraycmp 
for int arrays should be named something like intarraycmp, 
or int_arraycmp, or even arraycmp_int. Rather than commit 
to a particular spelling, you should hide the name splicing in¬ 
side another macro 

Idefine arraycmp(T) T ## arraycmp 

and call this macro whenever you must refer to the function 
name. 

For example, you compare two int arrays m and n by writ¬ 
ing 

arraycmp(int)(m, n, DIM(m)) 

The arraycmp macro uses the first argument list, (int), to 
produce the actual function name. The second argument list, 
(m, n, DIM(m)), provides the actual arguments for a call to 
that named function. 

Since each instance of a generic function has a unique 
name, the declare and implement macros must expand to 
declare that name. Declaring each arraycmp function with a 
unique name is easy - simply replace arraycmp with ar- 
raycmp(T) in the arraycmp_declare macro. You need not 
change arraycmp_implement, because it calls ar- 
raycmp_declare to generate the function heading. 


The generic.h Macros 

The generic, h macros offer a slightly nicer packaging for 
out-of-line generic functions using macros. Stroustrupfl] intro¬ 
duced the generic.h header for use in writing generic classes, 
but they work well for writing generic functions in C. Most C++ 
compilers provide generic.h as a standard header, a version 
of which appears in Listing 6. 

name2(nl, n2) is a macro for “internar use. It simply con¬ 
catenates names nl and n2 using the ## operator. Early C++ 
preprocessors did not support the ## operator, so program¬ 
mers employed other preprocessor tricks to splice names 
together, generic, h politely confined the tricks to this macro. 
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Listing 10 

linclude <stdio.h> 

lifdef BORLANDC 

linclude <string.h> 

int arraycmp(const int[], const int[], size_t); 
int arraycmp(const doublet], const doublet], size t); 

linclude "cf.h 11 // from Listing 5 

typedef const char *str; 

linclude "arraycmp.h" // from Listing 9 

int arraycmp(const str[], const str[], size_t); 
lendif 

Idefine DIM(a) (sizeof(a) / sizeof(a[0])) 

int main(void) 

int a[] = (1, 2, 3. 4, -5); 
int b[] * (1, 2, 3, 4, 4); 

f 

printfC'a vs. b = %d\n“, arraycmp(a, b, DIM(a)-l)); 
printf("a vs. b = %d\n", arraycmp(a, b, DIM(a))); 

double f[] = (1, 2, 3, 4, 5}; 

printf(“f vs. g ■ %d\n“, arraycmp(f, g, DIM(f))); 

double g[] = (1, 2, 3, 3, 4); 

printf("s vs. t ■ %d\n", arraycmp(s, t, DIM(s))); 
return 0; 

const char *s[] = ("123", "456", "789“}; 

) 

const char *t[] = ("123", "789", "456"); 

/* End of File */ 


declare(f, t) declares generic function / with type 
parameter t. For example, when combined with the macros in 
arraycmp.h, the call 


declare(arraycmp, int); 


expands to a call to arraycmpdeclare(int) which, in turn, 
declares arraycmp for int arrays. (When using generic.h, 
you typically omit the underscore from macro names like ar- 
raycmp_declare and arraycmp_implement.) Similarly, calling 
the macro implementff, t) defines generic function / with 
type parameter t. Listing 7 shows arraycmp.h rewritten using 



generic.h. Listing 8 shows the test program from Listing 2 
rewritten using the header in Listing 7. Listing 8 does not need 
function overloading, so it compiles as either C++ or C. 

The generic.h macros provide a type-safe way of im¬ 
plementing out-of-line generic functions. They produce code 
that is as fast and compact as if you had written each instan¬ 
tiation by hand. Unfortunately, all those backslashes and 
nested calls make macros like arraycmpddeclare and ar- 
raycmpimplement hard to read and even harder to write. 

Another problem with macros is that a macro definition 
can only span one logical source line. That is, if a macro defini¬ 
tion contains more than one physical line, every line except 
the last must end with a backslash. When the preprocessor 
expands a call to a macro written with backslashes, it 
removes the backslash and newline at the end of each line, 
and expands the entire macro on just one line. If the macro 
expansion contains an error, the compiler always reports the 
error as if it appeared on the first line. 

Generic Functions Using Templates 

Templates in C++ provide yet another way to implement 
compile-time generics. Templates are like macros, but with a 
much cleaner syntax, which makes creating and using them 
easier. 

Listing 9 shows my generic arraycmp function written as a 
template. The keyword template marks the start of the 
template declaration. <class T> is the template's formal 
parameter list. The keyword class identifies T as a type 
parameter. Although a C++ declaration using the keyword 
class usually declares T as a user-defined type, in this con¬ 
text T denotes either a user-defined or a built-in type. The 
remainder of the declaration is an ordinary C++ function decla¬ 
ration that uses T as a type name. 

The body of the arraycmp function template is essentially 
the same as the body of the arraycmpimplement macro in 
Listing 7, but without all the backslashes. Templates are part 
of the C++ language itself, not the preprocessor, so function 
templates follow the lexical conventions of ordinary functions. 
Note also that the function template doesn't use token-past¬ 
ing (or the name2 macro) to name the comparison function. 
The arraycmp template simply calls an overloaded function 
named cf. 
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Calling a template function is just like calling any other 
overloaded function. The compiler determines which instance 
of the template to call based on the actual arguments to the 
function call. For example, 

int a[10], b[10]; 

if (arraycmp(a, b, 10) == 0) 

calls an instance of arraycmp declared as 

int arraycmp 

(const int[], const int[], size_t); 

However, you need not write this declaration anywhere in 
your program. If the arraycmp template declaration is visible 
at the time of the call, the compiler creates the function dec¬ 
laration from the template automatically. Furthermore, you 
need not instantiate the template function anywhere in your 
program. The compiler simply generates an instance of the 
function somewhere in your program to satisfy the call. This 
process is called “automatic instantiation.” 

The Bleeding Edge 

Templates are a recent innovation. Although first proposed 
publicly by Stroustrup back in 1988[2], and described in the 
ARM[3] (the de facto C++ standard), they have only been avail¬ 
able under DOS since Borland released C++ 3.0 in late fall, 
1991. As I write this article (in June, 1992), I have only two 
compilers with templates - Borland's and a beta copy of AT&T 
cfront 3.0 from Comeau Computing. And these two compilers 
treat templates somewhat differently. 

For example, Listing 10 shows the test program from List¬ 
ing 8 rewritten using templates. The declarations inside 

#ifdef _B0RLANDC_ 

#endif 

declare specific instances of arraycmp functions. As far as I can 
tell from reading the ARM, the program should work with or 
without these declarations. However, the Borland compiler 
won’t compile the code without these declarations, and the 
Comeau compiler won’t link the program with them. 

Overloading Templates with Other Functions 

The function template definition in Listing 9 assumes that a 
declaration for an appropriate comparison function cf exists 
somewhere in the program. You need not declare all the 
overloaded cf functions before you declare the template, but 
you must declare the appropriate cf function before you call 
or declare a specific arraycmp function. 

The program in Listing 10 relies on a small set of over¬ 
loaded cf functions defined in cf.h from Listing 5. Writing an 
explicit set of cf functions works for this simple example, but 
what do you do when you compare an array of long int or 
of a user-defined type like complex'! The template creates the 
appropriate arraycmp function, but it doesn’t create a cf func¬ 
tion. If you don’t define the ones you need, you’ll get a com¬ 


Listing 11 (cf.h) 

lifndef CF_H_INCLUDED 
#define CF_H_INCLUDED 

template <class T> 
inline int cf(T a, T b) 

{ 

return a<b?-l:a==b?0:l; 

} 

inline int cf(int i, int j) 

( 

return i - j; 

} 

inline int cf(const char *s, const char *t) 

{ 

return strcmp(s, t); 

) 

#endif 

/* End of File */ 

Templates for Comparison Functions 


pile error. This approach doesn’t take full advantage of auto¬ 
matic template function instantiation. 

Listing 11 shows a new version of cf.h that declares cf as 
a function template. The template compares any two values 
of the same type using the general comparison algorithm 
used by doublecf in Listing 8. However, this algorithm is not 
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appropriate for all types, so Listing 11 supplies additional over¬ 
loaded cf functions. 

If the arguments to a particular call to a cf function exact¬ 
ly match the arguments of one of the overloaded functions, 
then the compiler will use that function instead of the 
template. Otherwise, the compiler will use the template. In¬ 
cluding cf.h in arraycmp.h lets the compiler automatically 
instantiate everything it needs to satisfy a call to a particular 
arraycmp function. 

Convenience vs. Reliability 

Despite its apparent convenience, automatically instantiat¬ 
ing comparison functions has a drawback - namely, that it 
may sometimes generate the wrong comparison function. For 
example, when the compiler sees the call 

unsigned i, j; 

cf(i, j); 

it uses the template to generate 

inline int cf(unsigned a, unsigned b) 

{ 

return a < b ? -1 : a == b ? 0 : 1; 

} 

This function is not as efficient as the overloaded function 
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through in-depth tutorial and detailed code. 
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int cf(int, int) 

in Listing 11, but at least it produces the correct result. 

On the other hand, suppose you have a pair of arrays of 
pointers to long integers 

long int (*a)[], (*b)[]; 

and you want to compare them on the basis, not of the 
values of the pointers, but of the values to which the pointers 
refer. In this case, the correct comparison function would be 

int cf(long int *a, long int *b) 

{ 

return *a < *b ? -1 : *a == *b ? 0 : 1; 

} 

assuming, of course, that the pointers are not null. However, 
if you forget to write this function before calling 

arraycmp(a, b, n); 

the compiler will instantiate the comparison function as 

int cf(1ong int *a, long int *b) 

{ 

return a < b ? -1 : a == b ? 0 : 1; 

) 

which compares the pointers and not the values they point 
to. This is a subtle error that you may have difficulty tracking 
down. 

To be perfectly frank, I don't have enough experience with 
templates to say whether the added convenience of automat¬ 
ic instantiation of comparison functions is worth the risk that 
the compiler might create the wrong function. I suspect the 
convenience isn’t worth the risk, but only time will tell. 

Templates Are the Way to Go 

Functions generated from templates have the same type- 
safety and efficiency as a family of “hand-written’’ overloaded 
functions. Although variations in implementations may be a 
minor inconvenience, don’t let that deter you from using 
templates. Just program conservatively, and test your code 
against more than one compiler. 

If your compiler doesn’t have templates, or if you must 
confine yourself to using C, write your generic functions using 
the generic.h macros. They are conceptually similar to 
templates, and will provide a smooth transition to templates 
when you finally get around to using them. □ 
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Windows 3 Developer’s Workshop 

Book Review by Ron Burk 

Richard Wilton's Win- Custom Controls. Building on the preceding description of 


dows 3 Developer's 
Workshop, available from 
Microsoft Press, is, to quote 
the author, "a collection of 
variations on a basic theme: 
The way to design Win¬ 
dows applications is to un¬ 
derstand the design of the 
Windows environment it¬ 
self.” The book assumes 
that you have access to C 
development tools for Win¬ 
dows 3.0, and the author 
recommends Petzold's Programming Windows. 

Windows Design. The opening chapter, an overview of the 
Windows programming environment, discusses the basics of 
messages, modules, tasks, and windows, and includes a 
sample program. Although clearly written and logically 
presented, the overview deals only with the most external 
and obvious aspects of Windows design - summing up Win¬ 
dows memory management, for example, in four paragraphs 
by describing local versus global heaps. Since Windows 
memory management differs between real, standard, and en¬ 
hanced modes, a detailed discussion would require pages, not 
paragraphs. 

Debugging. The debugging tips presented here range from 
general axioms to truly Windows-specific information, such as 
using an import library to intercept DLL calls for debugging 
purposes. The chapter includes a short demonstration of 
WDEB386 and some examples of CodeView usage. 

The Windows debugging information is useful but too 
much time is spent on standard debugging proverbs. In addi¬ 
tion, since the problems of real-mode memory management 
caused most Windows programmers to give up on real mode 
well before its official demise in Windows 3.1, the detailed 
discussion presented here is irrelevant. 

Dynamic Link Libraries. An overview of the structure and 
operation of DLLs, this chapter describes the difference be¬ 
tween calling sequences in an exported DLL function and an 
ordinary exported function. It discusses the problems caused 
by SS /= DS and provides a simple example DLL. 

A shortcoming here is the treatment of the required DLL 
Windows Exit Procedure (WEP). The chapter reproduces the in¬ 
correct advice of Microsoft's Windows 3.0 SDK, that the WEP is 
available for most any sort of cleanup. In fact, as many Win¬ 
dows programmers have discovered the hard way, doing 
much of anything in a WEP is a good source of intermittent 
UAEs. (See Brent Rector’s article in the July Windows/DOS 
Developer's Journal for more information.) 


DLLs, this chapter details the construction of custom controls, 
providing samples of two such controls. The chapter follows a 
logical progression, from implementing the custom control as 
a window embedded in your application, to placing it in a 
separate DLL and adding the functions necessary to interface 
to dialog editors. There is no coverage of the extended dialog 
editor interface defined by Borland’s Resource Workshop, but 
it was probably not available when this book went into print. 

An Object-Oriented View. This chapter, a discussion of 
window classes and messages from the perspective of object- 
oriented programming, demonstrates the important technique 
of using subclassing to slightly alter the behavior of the stand¬ 
ard window classes. Any example shows how to create an 
edit control that allows only numeric input. Window extra 
bytes and properties are discussed as methods for associating 
your own private data with existing window classes. 

Dynamic Data Exchange (DDE). Probably the book’s most 
significant contribution, the DDE chapter discusses the new 
Windows 3.1 DDE Management Library. (In fact, since the book 
arrived well before Windows 3.1 did and seemed to assume 
that DDEML was already widely available, this chapter caused 
early readers some confusion. The answer lay in the back of 
the book, where a small box indicated that readers could ob¬ 
tain an advance copy of DDEML.DLL directly from Microsoft 
Press.) This chapter covers the concepts of both the original 
DDE specification and the new DDEML. It has no example 
programs; instead, most of its 44 pages are devoted to ex¬ 
plaining how to use the 26 functions in the DDEML API. 

Problems and Solutions. The final chapter covers a variety 
of topics, such as how to add a thick frame to a list box, how 
to create a read-only edit control, how to use owner-draw 
controls, and so on. This kind of experience-based writing on 
how to accomplish specific tasks in Windows is invaluable - 
even for an experienced Windows programmer - and a book 
along these lines (properly indexed) would be an extremely 
useful tool. 

Summary 

I approached this book with some misplaced expectations, 
so it is no wonder I ended up being disappointed. Rather than 
a collection of variations on the theme, “The way to design 
Windows applications is to understand the design of the Win¬ 
dows environment itself,” the book feels more like “a 
hodgepodge of things I have to say about Windows.” I ab¬ 
solutely agree that having more information about the design 
of Windows would make it easier to write effective Windows 
programs; I would love to buy a book that contained such 
information, but this is not that book. □ 
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New Products 

Industry-Related News & Announcements 


Greenleaf Enhances User Interface Package 


Greenleaf DataWindows is a user interface library for DOS 
and UNIX that provides logical windows, transaction- 
oriented data entry, several menu styles, list boxes, and 
device independence for user interfaces. The hierarchical 
menu systems offer unlimited nesting, three kinds of con¬ 
text-sensitive help, down-level menu calls for any menu 
item, and dynamic configurability. Other menu features in¬ 
clude automatic indication of hot key, accelerator key, selec¬ 
tion toggle indicators, and horizontal and vertical scrolling of 
levels. 

This version adds translucent shadows, device inde¬ 
pendence for many video modes (including VESA support), 
and mouse use in data entry and menus. The 386 version 
now supports Rational Systems’ 386 D0S/4G and the DOS ver¬ 
sion supports Phar Lap’s 286 DOS Extender. Dialog boxes now 


have controls, including push buttons, check boxes, and 
radio buttons. 

This version of DataWindows comes with MakeForm, 
GreenleaFs screen designer. MakeForm allows programmers 
to interactively create data entry screens compatible with 
DataWindows. The data entry screens are then written to a 
resource File that DataWindows reads to create a form. Make¬ 
Form includes the ability to interactively test the form being 
designed. 

Greenleaf Data Windows/DOS, Data Windows/386, and 
DataWindows/UNIX (single user) each cost $549. For more in¬ 
formation or a demo disk, contact Greenleaf Software, Inc., 
16479 Dallas Parkway, Suite S70, Dal/as, TX 75248, (214) 
248-2561 or (800) 523-9830; FAX (214) 248-7830; BBS 
(214) 250-3778. 


PowerCode Provides Extensible Application Generator 


PowerCode is a new application generator for Windows 
aimed at developers using object-oriented languages and 
class libraries. It supports Borland C++ and Object Windows 
Library, Borland Turbo Pascal for Windows, Microsoft's C/C++ 
v7.0 and Microsoft Foundation Classes, and ANSI C. It sup¬ 
ports advanced Windows features such as toolbars, custom 
controls, and MDI, and can be extended to support any lan¬ 
guage or class library. 

PowerCode allows the developer to interactively 
prototype a Windows user interface with point-and-dick 
operations. After the user interface is designed, PowerCode 
generates all the necessary source files for the target en¬ 
vironment. PowerCode provides an integrated environment 
for designing, generating, editing, compiling, linking, and ex¬ 
ecuting the application. PowerCode also provides access to 


other development tools; it requires a separate resource 
editor to edit dialogs, bitmaps, and icons. 

The extensible features of PowerCode give the developer 
complete control over all source code generation. Power- 
Code uses a high-level script language to control code 
generation; developers can modify the script to tailor the 
code generation to their needs. Also, PowerCode’s object- 
oriented design allows developers to extend the definitions 
of objects used in the design process. 

PowerCode costs $395 and comes with a 30-day money- 
back guarantee and free technical support For more informa¬ 
tion or a free demo, contact J Systems, Inc., 4826 McA/p/ne 
Lone, Charlotte, NC 28212, (704) 535-0079; FAX (704) 537- 
5694. 


Cl Offers Windows NT Debugger and Editor 


Computer Innovations has announced two new 
programs for Windows NT: DEBUG*2000 and EDIT'2000. 
DEBUG *2000 is a source-level debugger for C and C++ 
programs. The program minimizes typing by using windows 
that automatically update as a program runs. Programmers 
can examine and modify data structures with the mouse. 
EDIT'2000 is a windowed programmer’s editor that makes 


use of the mouse, pulldown menus, and online help. The 
editor supports an unlimited number of open Files. 

DEBUG'2000 and EDIT'2000 both run under Windows NT 
and Windows 3.x on Intel 386/486 platforms, and under Win¬ 
dows NT on the MIPS. EDIT'2000 costs $249 and DEBUG'2000 
costs $395; technical support is free. For more information, 
contact Computer Innovations, 980 Shrewsbury Ave., Tin- 
ton Falls, NJ 07724, (908) 542-5920 or (800) 922-0169. 
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Raleigh Systems Announces OS/2 2.0 C++ Classes 


ObjectPM is a new C++ class library for OS/2 2.0. It 
provides more than 120 classes representing windows, con¬ 
trols, graphics tools, forms, threads, and more, providing an 
object-oriented interface above the OS/2 function API. 

The ObjectPM classes encapsulate all the features of 
OS/2, but also allow direct calls to OS/2 API functions. The 
graphics objects include those used for drawing and manage¬ 
ment of devices such as windows and printers. Drawing clas¬ 
ses are used to draw lines, arcs, text, bitmaps, paths, and 
areas, and graphics areas can be scaled, rotated, and trans¬ 
lated. 

ObjectPM allows for high-level dialog window program¬ 
ming and building data entry screens for database develop¬ 


ment, using its Forms Manager, which converts a dialog win¬ 
dow into a “form” and edit controls and buttons into “fields." 
It features many field types, data validation, character filter¬ 
ing, row-oriented data, and support for Database Manager 
data types and host variables. ObjectPM also supports 
threads and the file system's extended attributes. 

ObjectPM is available in binary form for Zortech and 
Glockenspiel C++ for $495, or $995 for complete source code. 
Site licenses, maintenance agreements, and an OS/2 1.3 ver¬ 
sion are also available. For more information, contact 
Raleigh Systems, Inc., 23200 Chagrin Boulevard, 2 Com¬ 
merce Pork Square, Cleveland, OH 44122, (216) 292-722 5. 


Windows 3.1 DDK Ships 

Microsoft Corporation is now shipping the Windows 
Device Drive Kit v3.1, a required tool for any developer who 
wants to create a Windows virtual device driver (VxD) that 
exploits Windows 3.1. The kit contains documentation, tools, 
and sample source code for developing device drivers for 
Windows 3.1. The principal use for virtual device drivers is to 
adapt new graphics displays or printers for Windows. How¬ 
ever, virtual device drivers run in a privileged mode and 
have access to a variety of internal Windows functions that 
make them attractive for solving other problems, such as al¬ 
lowing DOS and Windows programs to communicate. 

The DDK supports the Windows Universal Printer Driver, 
introduced in Windows 3.1, which makes it easier for 
developers to create and maintain printer drivers by separat¬ 


ing printer-specific information from Windows-specific infor¬ 
mation. The DDK contains three separate test suites for 
device drivers: a display compatibility test, a printer com¬ 
patibility test, and a network compatibility test It also in¬ 
cludes built-in multimedia device driver samples and pen 
computer display driver samples. 

The Microsoft Windows 3.1 DDK costs $500 and comes 
on both CD-ROM and 3.5-inch high-density floppies. Owners 
of the previous version of the DDK can upgrade for either 
$150 for floppies, or $99 for a CD-ROM version. For the names 
of resellers in specific areas, call Microsoft End User Sales at 
(BOO) 426-9400- in Canada, call the Microsoft Canada Cus¬ 
tomer Support Center at (800) 563-9048. 


Communications Library Supports Extended DOS 


Magna Carta Software is now shipping C Communications 
Toolkit/Extended DOS, a C library for serial and fax com¬ 
munications. The toolkit offers interrupt-driven serial com¬ 
munications at speeds up to 115,200bps on a standard PC 
serial port Besides supporting ail Hayes-compatible 
modems, the software offers a choice of XMODEM, YMODEM, 
ZMODEM, or Kermit file transfer protocols. Terminal emula¬ 
tions include VT100, VT52, and ANSI. The library also sup¬ 
ports the ability to send, schedule, and receive faxes with 
CAS-compatible fax boards. 

The library supports 286 protected-mode development 
with Phar Lap's 2861 DOS Extender and either Borland C++ or 


Microsoft C For 386 protected-mode applications, the toolkit 
supports the Intel C Code Builder 386/486, Metaware High C 
with the Phar Lap 3861 DOS Extender, and Watcom C/386 
with 386 DOS extenders from Rational Systems, Phar Lap, or 
Intel. 

C Communications Toolkit/Extended DOS comes with 
complete, commented source code, 600 pages of documen¬ 
tation, and a 30-day money-back guarantee, and costs 
$299.95. For more information, contact Magna Carta 
Software, P.O. Box 475594, Garland, TX 75047-5594, (214) 
226-6909. 


Serialtest Adds ComProbe 

ComProbe is a new external device that connects to a PC 
via the parallel printer port and allows the PC to conduct both 
synchronous and asynchronous RS-232 data communications 
testing. It is now included as part of Frontline Test Equipment's 
Serialtest v4.0 protocol analysis package. ComProbe removes 
the need for a plug-in card slot, making it possible for small 
portable computers to perform protocol analysis. 

Serialtest uses ComProbe to turn a PC into an RS-232 
serial data protocol analyzer. It supports X.25, SNA, HDLC, 
SDLC, and other sync and async protocols. Serialtest can 
monitor data lines, as well as emulate DTE and DCE devices. 

Serialtest displays data bytes in hex, ASCII, EBCDIC, or 
Baudot Control signals are graphically displayed, using 


timing diagrams. Serialtest supports timestamping to a 
resolution of 0.21 milliseconds. An unlimited amount of data 
can be captured directly to disk. Serialtest can be configured 
to use string triggers, control signal triggers, and address fil¬ 
tering to control the amount of data captured. Captured data 
can be retransmitted by Serialtest in order to recreate 
problems captured in the field. 

Serialtest, which includes the ComProbe, costs $1,495. For 
more information, contact Frontline Test Equipment, 330 
Naperville Road, Suite 2F, Wheaton, IL 60187, (708) 653- 
8570 or (800) 359-8570; FAX (708) 653-8603. 
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Intel Updates C Code Builder 

The C Code Builder Kit is a package of development tools 
for creating 32-bit extended DOS applications for 386 and 
486 PCs. The kit includes an ANSI C compiler compatible with 
Microsoft C, runtime libraries conforming to both Microsoft 
libraries and POSIX standards, a source-level debugger, a 
compile-and-link driver, linker, librarian, make utility, and 
387/487 coprocessor emulation. 

Version 1.1 includes performance enhancements for 
graphics functions such as displaying scalable, font-based 
text and filling irregular screen shapes. The package now al¬ 
lows you to integrate assembly code from either Borland's 
Turbo Assembler or MASM. Version 1.1 now supports the full 


addressing capability of the 386/486 memory, up to 64Mb of 
physical memory, and 4 gigabytes of virtual memory. 

Both the tools in the kit and applications developed with 
the kit are compatible with DOS 5's EMM386, Qualitas’s 
386MAX, Quarterdeck's QEMM-386, and Helix's NETROOM. Ver¬ 
sion 1.1 includes compatibility with Windows 3.1, OS/2 2.0, 
and DOS 5 loaded high. 

The C Code Builder Kit costs $695. Upgrades are available 
for $95. The package includes free (and toll-free) technical 
support at (800) 345-2479. For more information about the C 
Code Builder Kit, contact the Intel literature center at (800) 
548-4725, or write for Intel literature packet #BP-43, P.O. 
Box 7641, Mt Prospect, IL 60056-7641. 


Real-time OS Available on PC 

Accelerated Technology, Inc. has announced a family of 
PC-compatible multitasking kernels. The Nucleus RTX line of 
multitasking kernels has been available for most 32-bit 
microprocessors, and the new PC versions offer the same 
multitasking capabilities, primarily on embedded designs, for 
PCs running in both real and protected mode. 

Since DOS is not re-entrant, Nucleus RTX for the PC inter¬ 
cepts 1NT 21 h calls and prevents more than one DOS function 
from being active at once. For the BIOS, Nucleus RTX 
provides "resources,” which manage multiple accesses by 
precluding more than one task from using a given BIOS func¬ 
tion at the same time. 


Nucleus provides a full set of multitasking features includ¬ 
ing task, queue, resource, event, fixed memory, and variable 
memory management. Nucleus is available for a variety of 
PC compilers, including Borland C++, Turbo C++, Microsoft C, 
Watcom C, and Metaware C. Nucleus is also integrated with 
the Phar Lap DOS Extender, as well as Systems and Software 
linker/locator. 

A royalty-free license for Nucleus costs $3,495 for the 
80x86 and $4,995 for the protected-mode version, and in¬ 
cludes source code. A development version of Nucleus is 
available for $495. For more information, contact Ac¬ 
celerated Technology, Inc., P.O. Box 850245, Mobile, AL 
366 85, (205) 450-0707; FAX (205) 450-0404. 


MKS Toolkit Easier to Use 

Mortice Kern Systems, Inc. has released version 3.2 of 
their MKS Toolkit for DOS. MKS Toolkit contains DOS im¬ 
plementations of more than 150 UNIX System V R4 utilities, 
including tools for command editing and history, file process¬ 
ing and comparison, text manipulation and sorting. It in¬ 
cludes the MKS KornShell command interpreter, MKS Vi 
full-screen editor, and MKS AWK prototyping and report 
generating language. 

This version features online manual pages that display 
command information similar to that found on UNIX sys¬ 
tems. This version also provides a variable install program, so 
that laptop users with limited disk space can install only the 
utilities they need. The new installation code also shows 
how much space remains on the machine. 


With raw device support, you can use tar, cpio, and pax 
directly with any device. For example, you can tar Files onto 
a floppy drive and then use that disk directly in a UNIX sys¬ 
tem. The same applies to reading a UNIX floppy on a DOS 
system. This version also includes multi-volume support for 
dd and automatic diskette format detection. 

MKS Toolkit V3.2 for DOS costs $249; upgrades cost $69 
and MKS offers a 50 percent discount to qualified education¬ 
al buyers. For more information, contact Mortice Kern Sys¬ 
tems, Inc., 35 King Street North, Waterloo, Ontario, 
Canada N2] 2W9, (519) 884-2251; FAX (5 19) 884-8861. 


Intel Updates Real-time Windows Software 


Intel Corporation is now shipping its iRMX for Windows 
v2.0 real-time operating system. This version offers dynamic 
data exchange (DDE) support, DOS networking, improved 
determinism, and support for standard-mode Windows. 

iRMX for Windows allows users to manage and control 
equipment, machines, and process from a standard PC using 
a Windows user interface. The operating system runs stand¬ 
ard DOS or Windows as a task so that applications benefit 
from compatibility with most DOS networking software. The 
iRMX for Windows pre-emptive, priority-based scheduler has 


been improved, giving users the ability to control more than 
8,200 tasks with a typical time between interrupts of only 
seven microseconds. 

iRMX for Windows costs $5,595 for a development kit, 
which includes tools and compilers; runtime licenses cost 
$150, with discounts available for volume licensing. For more 
information about the iRMX for Windows real-time operat¬ 
ing system, write to iRMX for Windows, P.O. Box 14070 
Portland, OR 97214-9949, or call (800) GET-iRMX. 
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Readers' Forum 


You can now send letters to the 
editor via Internet at the following 
address: 

wdletter@rdpub.com or 
"...!uunet!rdpub!wdletter" 
from CompuServe: 

>INTERNET:wdletter@rdpub.com 


We ask that letters with code listings 
be submitted in an ASCII text file on an 
MS-DOS formatted disk or via email. 
Providing us an electronic copy of the 
code will prevent typographical errors 
that might result from optical scanning 
or re-keyboarding. 


Dear Readers: 

Every year we lay out an editorial 
calendar, giving each month a par¬ 
ticular theme and making a list of sug¬ 
gested topics. The topics are mainly 
for stimulating readers to submit ar¬ 
ticles — we don’t really expect or 
desire to only receive articles on those 
exact topics. 

This year, I would like to hear your 
suggested topics. What specific areas 
would you really like to see an article 
about? The best ideas are probably 
those that solve a specific program¬ 
ming problem. For example, I would 
really like an article that demonstrates 
a custom edit control that handles 
more than 64Kb of text (if someone 
doesn’t send me one pretty soon, I’m 
going to tackle it myself!). If you have 
ideas for articles you would enjoy 
reading, or that would solve a sig¬ 
nificant problem for you, mail them in. 
I can’t guarantee the article you want 
will appear, but it just might, —rib 


Mr. Burk, 

RE the letter in the April 1992 issue’s 
“Reader’s Forum” about converting P- 
Chars to Turbo Pascal strings, I have two 
solutions for you (Listing 1). One sticks 
strictly with the built-in functions of 
Turbo Pascal, the other descends to 


Listing 1 


PROGRAM Foo; 

TYPE ASCIIZ • ARRAY[0..255] OF Char; 

CONST Neil : String[4] = 'Neil 1 ; 

VAR 

A : ASCII!; 

S : String; 

N : Word; 

FUNCTION PChar2Str( pstr : ASCIIZ) : String; 

BEGIN 

(_pstr is a *copy* of the actual passed ASCIIZ, 
so we can mess around with it. Start by making 
room for a length byte...} 

Move(_pstr[0], _pstr[l], 255); 

(set the length byte to 255} 

_pstr[0] #255; 

Ttreat _pstr as a string and use Pos to locate 
the terminating #0} 

_pstr[0] := Char(Pos(#0, String(_pstr))); 

(if #0 not found, the string was 255 characters 
long (or more)} 

IF pstr[0] * #0 THEN pstr[0] := #255 
ELSE Dec(_pstr[0]); 

PChar2Str := String( pstr); 

END; 


FUNCTION PChar2StrA(VAR pstr : ASCIIZ) : String; Assembler; 

ASM 

CLD 

LES DI, _pstr 
MOV CX, OFFh 
X0R AL, AL 
REPNZ SCASB 
MOV AX, OFEh 
SUB AX, CX 
LES DI, BResult 
ST0SB 
PUSH DS 
LDS SI, pstr 
MOV CX, AX 
REP M0VSB 
POP DS 

END; 

BEGIN 

Fi11 Char(A, SizeOf(A), 0); 

S := PChar2StrA(A); 

WriteLnC", S, 

Move(Nei1[1], A, 4); 

S := PChar2StrA(A); 

WriteLnC", S, ""); 

FOR N := 0 TO 254 DO 

A[N] := Char(Ord('0') + ((N+l) MOD 10)); 

S := PChar2StrA(A); 

WriteLnC", S, ""); 

END. 


August 1992 


Windows/DOS Developer’s Journal — Page 67 














assembler (using the built-in assembler, 
of course). The all-Pascal version takes 
advantage of the fast Move and Pos 
routines, and the assembler uses code 
similar to that of TPW’s StrLen proce¬ 
dure. In both cases, the ASCIIZ type is 
assumed to be restricted to 255 charac¬ 
ters or less - any more and you 
couldn’t guarantee it would fit in a 
String. 

I won’t be surprised if someone 
comes up with an even faster version, 
but these two are VERY fast, yet still 
intelligible! 

Sincerely, 

Neil J. Rubenking 

Thanks for the code; I enjoy read¬ 
ing your writing in PC Magazine. It is 
always fascinating to give different 
programmers the same problem and 
compare solutions, even for something 
as constrained as this one. —rib 


Dear Ron, 

just got my June issue today-, excel¬ 
lent as usual. Don’t know if you caught 
this yet, but... 

In your column on page 4 you say 
the only safe thing to do in your WEP is 
to “return zero and keep your fingers 
crossed.” On page 18, Arthur D. 
Applegate's code fragment and text say 
“your best bet" is to do nothing and 
return 1. 

I hate to make things so black-and- 
white, so binary, but which is it? 0 or 1? 

Bob Hahn 


How is it that I can reread my writ¬ 
ing five times and not spot a problem 
that our readers detect within 30 
minutes of the magazine’s delivery? 
The correct answer is “1". Other 
readers pointed this out, but you were 
the first, —rib 


Dear Ron & Staff, 

Congratulations on an excellent jour¬ 
nal I I finally had the time in an ex¬ 
tremely busy year to peruse the June 
issue of your journal and found it full of 
useful tidbits and relevant gleanings. It 
has opened my eyes to yet another 
R&D publication to watch. And with the 
June issue Robert Ward takes his cover 
art to a new level! 

Sincerely, 

Keith Bluestone, President 
StratosWare 


Hi Ron! 

Got my first issue of Windows/DOS 
Developer’s Journal today. I really like it. 
You have some good articles. A good 
selection too. 

I hear there’s an article coming up 
on writing Virtual Device Drivers for 
Windows. I’m watching for it. 

Best, 

Robert Heath 

To both of you and the many other 
people who took the time to write, 
call, and email us about the quality of 
the June issue: thanks! It is just human 
nature to be quicker to notice 


problems than to notice their absence, 
so we really appreciate the positive 
feedback. 

June was definitely our best issue 
ever, but I can’t take most of the 
credit. The many other people at R&D 
who put the magazine together con¬ 
tinue to do a great job, and the raw 
material comes from programmers 
who take the time to write articles 
about what they've learned. I think it is 
crucial that we depend on working 
programmers for most of our material 
rather than a handful of professional 
writers. By tapping our diverse, ex¬ 
perienced readership, we can print the 
kind of information and solutions you 
can’t find elsewhere. 

As for the article on writing VxDs, 
try to get a copy of the May issue. 
Thomas Olsen's article in that issue 
has proven useful to programmers 
(like me) trying to decipher the DDK 
documentation, -rib 


Ron, 

In your “From the Editor" section in 
the June 1 992 Windows/DOS 
Developer's Journal, you stated that it is 
a myth that hook functions must be in 
DLLs. Well, it is currently “OK" to put a 
hook in application code (I've done it 
myself), but there are two things you 
should be aware of: 

1) The Windows 3.1 Debug Kernel 
will spit out a message saying some¬ 
thing like, “Backward compatibility hack 
enabled ... hook function must be in a 
DLL" 
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Basic is better than C when you 
use the ProBas library! Over 900 
routines, most in assembly, let you 
write fast, tight code without 
"C-headaches"! Easy to use, 30 
day money-back guarantee. For 
your FREE 20 page booklet call: 

800-447-9120 ext. 133 

TeraTech 

Dept. W133,3 Choke Cherry Rd. 
Ste. 360, Rockville MD 20850 
(301) 330-6764 Fax: 963-0436 
BBS: 963-7478 9600-N-8-1 

"A SuperChaiger for Basic" - BYTE 
New Visual Basic tools available! 

□ Request 101 on Reader Service Card □ 




GlFdb by Raynbow Software allows you to 
catalog and search large collections of 
images. 




•Cataloger r~) 

•Interactive Search Engine J_j (_ 
•Command Line Search Engine 
*5000 GIFs plus utilities 
l-ROM 


on CD-I 


K> 


$50(605)394-8227 


BBS Door Available for $50 

Raynbow Software, Inc. 

P.O. Box 327, Rapid City, SD 57709 
l Visa $ MC Accepted | 


□ Request 106 on Reader Service Card □ 
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Windows 

Developer Jobs 

Specialists in jobs for software 
engineers in leading edge technology. 
Windows, PM, GUI, Languages, AI, 

Mac, CASE, Video, Realtime. 

Nationwide contacts with both large 
and small companies including equity 
startups. Many of our clients develop 
and publish commercial software 
products. Managed by graduate 
engineers. Never a fee to an 
applicant. 

1-800-231-5920 
Scientific Placement, Inc. 



SPI-8, Box 19949, Houston, TX 77224 (713) 496-6100 
SPI-8, Box 71, San Ramon, CA 94583 (510) 733-6168 
SPI-8, Box 4270, Johnson City, TN 37602 (615) 926-6188 
Fax: 713-496-6802 please use Fine Setting on Fax 
Email: Ascii preferred: Internet LSH@Scientific.com; 
^CompuServe: 71250,3001; Genie: D.SMALL6 ^ 


□ Request 335 on Reader Service Card □ 


1:03 


TUB " is FASTEST! 

0:19 Q.Qg 
RCS'“4.2 PVCS” TUB'” 3.0 TLIB'“ 5.0 



0:41 


m 


Times are to update a 45K library on a PC/XT. PVCS and TUB 3.0 are 
from Sept 87 PC Tech Journal. MKS RCS 4.2 and TUB 5.0 are newer. 


TUB™ is BEST! 

“Do not be fooled by the fact that this is the 
least expensive of the five packages reviewed 
here - TUB has features and power to spare" 

John Rex, Computer Language 

“TLIB is a great system" J. Vallino, PC Tech J 

. Full-Featured Version Control for Software 
Professionals. Check-in/out locking. Branching. 
Keywords. Wildcard and list-of-file support. Can 
merge parallel changes and undo intermediate 
revisions. Network and WORM support. Main¬ 
frame compatible deltas for Pansophic, ADR, IBM, 
etc.. Integrates with Opus'” MAKE & Slick ” MAKE. 

MS-DOS $139, OS/2 $195 + shipping visa/MC 
5 station LAN license $419 (OS/2 $595), cail for other sizes 

BURTON SYSTEMS SOFTWARE 

PO Box 4156, Cary, NC 27519 (919)233-8128 


□ Request 137 on Reader Service Card □ 


Notice to Our Subscribers 

Occasionally, Windows/DOS Developer's 
Journal makes its mailing list available to 
vendors of products we think our readers 
will find interesting. Current subscribers 
receive free information in the mail from 
these vendors. If you prefer that your 
name not be used in these mailings, 
please let us know. Just copy or clip this 
form and send it with your name and ad¬ 
dress to: 

Windows/DOS 

□ DEVELOPER S JOURNAL 

1601 W. 23rd. St, Ste. 200 
Lawrence, KS 66046-2743 
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WindowsCreator 

revolution !!! 


• create WINDOWS interactively 

• no need to write any code 

• You PAINT the application, not write! 11 

• object-oriented programming using 
standard C language 

• Generated C-code or Smalltalk code 
in seconds!) 

• Dialog, window, menu, cursor. 

icon, color, brush and attrib. 

editors incl. 

• interactive functionality linking 

• application code is separated from 
interface code. Few code lines connect 
application to WINDOWS interface 


AdamSoft, 66 rue de Bourgogne 
L'1272 Luxembourg 
Fax:+352-494768 VISA accepted 
Until April 30th — $200, alter $299 

p&p Europe $10, elsewhere $20 
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Visual Basic, 
BASIC, and PDS 
programmers! 

jSf^SfroT Purpose Toolboxes 

^BUTDesign 

jrftfffiunications 

Printing 

iStiSWlfific Applications 
j^SFTand mote! 



Crescent Software offers many tools for 
QuickBASIC, PDS, and Visual Basic. All 
products include complete source code, 
free technical support, and royalties are 

never required! fOfi LTIRAILfit & F8H DEMO PACXACiS 

CALL TOLL FREE 



CRESCENT SOFTWARE, INC. 

11 BAILEY AVENUE 
RIDGEFIELD. CT 06877-4505 
203438 5300 FAX 203431 4626 


Need Help Writing 

User Manuals? 

Why not call on a very competent con¬ 
tractor? Stan Stringfellow, B.A. Com¬ 
puter Science (UCSD), has 12 years of 
experience writing well organized, 
user-friendly manuals and on-line doc¬ 
umentation, as well as brochures and 
articles. Experienced with: MS-DOS, 
Windows, UNIX, X, Mac, C, C++, as¬ 
sembly, Pascal, BASIC, FORTRAN, 
Ada. SQL, OOP. CASE, GUI tools, 
Motif, compilers, debuggers, networks, 
various applications. Can work long 
distance or travel. Good references. 

Pacific Technical 
Writing Group 

Stan Stringfellow 
4392 Proctor Place 
San Diego, CA 92116 
619-295-8620 

□ Request 121 on Reader Service Card □ 



Cica Windows CDROM $24.95 

Hundreds of Microsoft Windows programs 
on your desk! Utilities, games, fonts, 
icons, bitmaps, source code, programming 
tools, video/printer drivers, etc. 


Simtel-20 MSDOS CD $24.95 

420 Megs, 6000+ files at your fingertips! 
Programming tools, utilities, tech doc, 
comm, bbs, publishing, shells, editors, 
source code, etc. Thoroughly indexed. 


Walnut Creek CDROM 

1547 Palos Verdes Mall 


Suite 260 

Walnut Creek, CA 94596 

+1800 786-9907 

+1510 947-5996 
+1510 947-1644 FAX 

VisaAlC 
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Wrltebar Barcode Products 


Wilsoft carries a complete line of bar 
code software and hardware for your 
every need. All major bar code types 
supported. Call the most experienced 
company in the bar code field today. 
DOS and Xenix/Unix support. Por¬ 
table readers too! 

VISA/MC/AMEX/DISCOVER 

PO Box 6186 

Ft. Lauderdale, FL 33310-6186 
(305) 779-2720 
(305) 763-3096 Fax 
(800) 779-2720 Sales 
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Opt-Tech Sort/Merge 


Extremely fast Sort / Merge / 
Select utility. Run as an MS- 
DOS command or CALL as a 
subroutine. 

Supports most languages and 
filetypes including Btrieve and 
dBase. Unlimited filesizes, mul¬ 
tiple keys and much more! 

MS-DOS, Windows $ 149 . 
OS/2, UNIX $ 249 . 


Opt-Tech Data Processing 

P. O. Box 678 
Zephyr Cove. NV 89448 

( 702 ) 588-3737 
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2) In future incarnations of Windows 
(Win32 and NT), I have a feeling (un¬ 
proven at this point) that the rule of 
hooks in DLLs might be enforced. In 
fact, the Win32 spec says (for Set- 
WindowsHookEx) that the ‘hmod’ 
parameter must specify a DLL if you are 
hooking any threads not owned by 
your application. On the other hand, it 
*is* acceptable to have the hook func¬ 
tion in your application code if you are 
only hooking threads owned by your 
app. 

Thought you might want to pass this 
on to your readers... 


By the way, I am thoroughly enjoy¬ 
ing the quality and depth of the articles 
in the June issue. Keep up the great 
work! 

David Mandell, President 
Plannet Crafters, Inc. 

I did not have room in my column 
for these caveats, so I was hoping 
someone would bring them up for me 
- thanks! As with most myths, there 
are some truths behind these Windows 
programming myths. The real problem 
is with documentation and books that 
just say “don’t do this" without explain¬ 


ing the reasons, so that programmers 
can make intelligent choices. Actually, 
the first three myths (avoid locking 
memory, do not use the large memory 
model, and use the WEP for any 
necessary DLL cleanup) are the ones I 
see causing new Windows program¬ 
mers the most confusion. The last one 
is a bit more trivial, but I needed one 
more to round out the column, —rib 
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Marketplace 



JPEG 

Image Compression 
tor Windows 

★ Compress/Decompress images in 
10 seconds or less. 

-*• Full Source Code & DLL's Available 

★ Convert & View Multiple Images 

★ Royalty Free Developers Kit Available 

★ PRICES START AT $99.00! 

Regular and Extended Dos also available 
•a PHONE: 1-800-9664487 
305-962-9961 
FAX: 305-962-6546 
Information Technologies Research,Inc 
3520 W Hallandale Beach Blvd 
Pembroke Park, FL 33023 
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Windows 3.1 
Text Printing Utility 

Causality for Windows 

“Prints source code in a flash” 

Fast! Easy! Flexible! 

Install, configure, and forget about 
it. It’s that easy! Drag files from File 
Manager and Drop on Causality for 
Windows. Causality formats and 
prints them to your specifications. 
Customize tab expansion, orientation, 
font face, font size, and margins for 
each file type you use. Causality 
automatically remembers your 
settings. 

Just $79. Call or write for a demo. 

Non-Causal Systems, Inc. 1-800-221-9423 
4691 N. University Dr., Suite 384 
Coral Springs, FL 33067 
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SEALEVEL SYSTEMS INC. 
PO BOX 830 
LIBERTY, SC 29657 

(803) 843-4343 


COM1: - COM4: 
WITH WINDOWS! 

• 1. 9, OR 4 PORT K3-232 BOARDS 

• RS-23S AND RS-4S2 VERSIONS 
. WINDOWS UTILITY SOFTWARE 

PROVIDED 

. XT AND AT INTERRUPT JUMPERS 

• OTHER PRODUCTS INCLUDING 
LAPTOP ADD-ONS 

. DELIVERY FROM STICK 


SEdLEVEL 


□ Request 115 on Reader Service Card □ 


INTERNATIONAL 
SOFTWARE 
ASSIGNMENTS 

YOUR PASSPORT TO AN 
INTERNATIONAL CAREER 

The International Computer Professional Association 
provides you with the world-wide contacts you need to find an 
exciting software assignment overseas. 

Every two weeks you'll receive a detailed listing of 
current software assignments faxed directly to the ICPA by 
recruiters in London, Paris, and many other cities. Youll also 
receive valuable advice from software professionals with first¬ 
hand international experience. 

•Learn about exciting contract and permanent positions overseas 
•Make up to $70,000 tax-free, even when working in Europe 
•Set-up an international consultancy and work throughout the world 

As a member of ICPA you become part of a dynamic 
international network of software professionals. People with 
years of experience in the international market who will show 
you how to find an assignment overseas. 

To find out more about how to join the ICPA 

Call (415) 695 7618 
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ButtonTool/EditTool Combo 
for 

Visual Basic™ Users 

ButtonTool creates "VISUAL" 
buttons and more! EditTool 
creates formatted input fields. 
$89.95 + $7 S&H. No royalties 
Visa/MC/Amex 


To order call: 
1-800-845-0386 
FAX: 713-523-0386 



OUTRIDER SYSTEMS, INC. 
3701 Kirby Dr., Ste 11 96 
Houston ,TX 77098 Dept W 
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^ TCP/IP 

programmers! 

GENISYS Comm Pack++ 

GCP++ is 100% C++ DLL, providing a 
meta-API for encapsulated 
TCP/UDP/Telnet access, bufffer, file, 
and packetized voice. 

>• Eliminate socket library learning 
curve 

> Speed development & debugging 

> No Royalties 

> Write portable applications using 
GCP++ versions Tor most leading 
stack vendors 

VOICE OVER ETHERNET 

(kit available) 

GENISYS Comm, Inc. 

314 South Jay Street, Rome, NY 13440 
_ (315) 339-5502 _ 
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Windows Edit Controls 

InControl Toolbox. Custom Windows 
edit controls for the entry of: 

□ Integers, Floating point 

□ Dates 

□ Formatted Text 

□ Regular Expression 

□ Display of date and time 

Provides hooks for programmer 
validation routines and creation of 
specialized controls. 

For demo, call BBS: (512) 335-5079 
Without source $99. With source $249. 
For info or orders call: The Connection 
800-336-1166 or (216) 494-3781 
Fax: (216) 494-5260 

MantaSoft Partners (512)335-3497 
P.O. Box 203551 
Austin, TX 78720-3551 
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Beat the Clock. 


• Performance Analysis 

• Execution Timing 

• Periodic Interrupts 

• Precision Delays 

• Manual Interrupts 

gTA77™ $295 

Independent hardware provides five 16-bit 
250-nanosecond timers. Includes add-in card, 
breakout switch, reference guide, application 
and l/F library with FULL SOURCE CODE. 

ZS7A77 m $749 

Virtual tinners library for STAT1. Support 
included for most 9513 counterAimer boards. 
FULL SOURCE CODE INCLUDED. 



£7T?P/™ #29 

Debugger breakout switch and interface card. 


CALL (206) 644-3094 TO ORDER 



ALPHA LOGIC 


TECHNOLOGIES INC. 

212? IMND AVE N E. REDMOND Wa <W<m 
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Program WINDOWS™ 
With UNIX 8 Strength 

Our programmers love Windows, but cant live without 
the time proven power of Unix. With Winix's visual 
Unix tools for Windows they have it all, and you will 
agree, the sum is greater than it's parts. 

• Point & click your way through files with cd & Is. 

• Split & join portions of files using head & tail. 

• Search & replace text with visual grep & gres. 

Plus, the Winix environment lets you graphically link 
any sequence of operations together and direct the 
flow of information, for one shot processing, or to 
perform the routine operations you need today and in 
the future. 

Include a copy of this ad and well also send you our 
Windows text editor, DCedit. Indicate 3.5" or 5.25" 
disks and send check or M.O. for just $35 + $4 S&H. 

□□ Double Click 

QD Softtocvie 

3833 Washburn Ave. S. - Minneapolis, MN 55410 - (612) 920-7829 
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o™ 

VB=mc 2 

The Art of Visual Basic Programming ™ 

This amazing new book by J. D. Evans, Jr. unlocks 
the secrets of Windows and Visual Basic 
application design and programming. It explains 
Windows design from a unique and easy to 
understand perspective. Smart Objects, Hybrid 
Objects, Control Coupling, Events, Focus, Event 
Triggering, Visibility, Form and Module Code 
Placement, DLL Parameter Passing, Variable 
Scope, Strings, and Structures are described and 
explained. Enlightening allegories and annecdotes 
make this one of the most unusual and informative 
Windows books ever written. This book is the 
Rosetta stone for Windows and Visual Basic! 

Book: $29.95 Companion Disk: $9.95 

ETN Corporation 

RD4 Box 659 Montoursville, PA 17754-9433 
(717) 435-2202 (Sales) (717) 435-2802 (FAX) 
AMEX/MC/VISA/Check/MO/PO/COD 
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BAR CODE 
SOURCE CODE 

$45.00 

Source code for printing UPC codes, 
postal bar codes, and most other 
popular formats. Comprehensive 
collection of programs and routines 
in C, C++, Paradox, Quick Basic, 
GW Basic, Visual Basic, & Dbase. 

No runtime royalties. 

Eastern Digital Resources 
PO Box 1451 - Clearwater, SC 29822-1451 
Tel. (803) 593-0870 Fax. (803) 593-4522 
VISA - MC - COD - PO'S WELCOME 
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C and C++ DOCUMENTATION 


! AUTOMATED DOCUMENTATION ! 

• C-CALL ($69) Graphic-tree of caller/called 
functions, functions-vs-files index. 

• C-CMT ($69) Creates/inserts/updates 
comment-blocks for each function, listing 
the functions and identifiers used by it. 

• C-METRIC ($59) Counts path complexity, 
counts comments, code, 'C' statements. 

• C-LIST ($69) Lists and action-diagrams, 
or reformats into standard formats. 

• C-REF ($59) Creates cross-reference of 
local/global/define/parameter identifiers. 

• C-DOC SPECIAL ($199) All 5 programs 
integrated as 1 DOS program. Processes 
multiple directories/files up to 15,000 lines. 

• NEW! ($299) C-DOC Professional 

DOS, OS/2, Windows. 3-ring binder/case. 
Processes 150,000 lines, deferred reports. 

• 30-DAY Money-back guarantee CALL NOW 

SOFTWARE BLACKSMITHS INC. 

6064 St Ives Way, Mississauga 

ONT, Canada. L5N-4M1 (416)-858-4466 


see AD INDEX for our larger ad 
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32-bit Protected Mode 
386 C Graphics Library 

Intel 386/486 C Code Builder 
MetaWare, MicroWay, SVS, 
Watcom & Zortech with 
Phar Lap 3861 ASM 

Mixed Raster/Vector, 
Scalable, Rotatable Font, 
VGA, SVGA, 8514/A, VESA, 
Hercules Graphics Station 
through 1024x768x256 (8-bit), 
640x480x32k (16-bit), 
512x480x16.7m (32-bit), 
WYSIWYG HP-GL/PostScript 
$200 NO ROYALTIES 
FULL SOURCE CODE 
Gary R. Olhoeft 
P.O. Box 10870 Edgemont 
Golden, CO 80401-0620 
303-877-3697 CIS 76665,2021 
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NETWORK 

CONTROL 

LIBRARIES 

NETBIOS ROUTINES allows ac¬ 
cess to low-level network func¬ 
tions. Name, session, and 
datagram routines. Wait and no¬ 
wait options. $99 

NETBIOS DLL for Windows $199 

NETWORK MASTER provides 
access to Netware internal func¬ 
tions. Complete network control 
from your compiled programs! $99 

Starlight Software 

P.O. Box 1090 

Wheeling, IL 60090 

(708) 394-0622 _ 

□ Request 170 on Reader Service Card □ 
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windows/DOS Code Listings 
Available via UUCP! 

The listings for all code in each issue of Win¬ 
dows/DOS Developer’s Journal are now being archived 
in machine-readable form by UUNET Technologies, Inc. 
Each archive file has a pathname of the form 

uunet!~/published/windowsdos/19YY/monYY.zip 

where won is the first three letters of the month (jan, 
feb, etc.) and YY is the last two digits of the year (e.g., 
92). To uncompress the archives, use unzip filename. 
See the file called filename.txt, included in each ar¬ 
chive, for an explanation of the archive’s contents. 

You may download these archive files via uucp 
even if you do not have a UUNET account: have your 
uucp program call 1-900-GOT-SRCS and use the login 
name uucp, no password. Callers will be charged a 
nominal fee for connect time (currently 50 cents per 
minute). The modems are mostly Telebit T3000’s, 
which support most of the faster communication 
protocols. 

Code for each issue is also available on diskette 
from R&D Publications at $5.00 per disk (call 913-841- 
1631 for information). 
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ST@P! 


Over 18,000 
Windows developers 
are reading this ad. 
Shouldn’t your product 
be here? 


Call us at 913-841-1631 
to receive a free media kit. 
You’ll be glad you did. 

Windows/DOS 

□ DEVELOPER S JOURNAL 


CALL 

913 - 841-1631 

TODAY! 
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FREE 

Product 

Information 

Use this postage paid 
card to stay up-to-date 
on products 
that affect 
your productivity. 

Just fill out the card 
and drop it in the mail. 





Ifl 


WindowsExpos 

□ DEVELOPER'S JOURNAL 


1601 W. 23rd St., Suite 200 
Lawrence, KS 66046-9950 
(913) 841-1631 FAX: (913) 841-2624 


Please help us serve you by 
answering the following: 

1) I program: 

□ for a living 

□ as a hobby 

□ as a manager 

2) I program in: 

□ MS-DOS 

□ Windows 

3) I program most frequently in: 

□ C+ + 

□ Assembly 

□ Pascal 

□ BASIC 

□ C 

□ Other _ 

□ Please send me subscription information. 


REQUEST READER SERVICE NUMBERS: 



Use with the August 1992 issue only. 


NAME 

COMPANY 


ADDRESS 


CITY/STATE/ZIP 


PHONE 38 


Windows/POS 

□ DEVELOPER'S JOURNAL 

□ YES! Send me 12 issues of Windows/DOS Developer’s Journal for only $29! 

□ 2 years (24 issues) for $54 □ 3 years (36 issues) for $77 

□ Bill Me [H Visa □ MasterCard 

Number_Exp._ 

Signature_ 


Name 


Company 


Address 

City 

State 


Zip 


Country/Province/Mailcode 


Please allow up to six weeks for delivery of first issue. Orders outside the US must be prepaid in US funds. CANADA/MEXICO 
subscriptions are: 1 year - $53; 2 years - $88; 3 years - $121. Overseas subscriptions are: 1 year - $64; 2 years - $120; 3 years - $174. 
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d4alias 

d4free_blocks 

d4recall 

d4alias_set 

d4go 

d4reccount 

d4append 

d4go_eof 

d4recno 

d4append_blank 

d4lock 

d4record_widtl 

d4append_start 

d4]ock_append 

d4reindex 

d4blank 

d4lock_file 

d4seek 

d4bof 

d4lock_group 

d4seek_doubb 

d4bottom 

d4]ock_index 

d4skip 

d4check 

d4lock_test 

d4tag_select 

d4close 

d4lock_test_append 

d4top 

d4close_all 

d41ock_test_file 

d4unlock_all 

d 4 ere ate 

d4memo_compress 

d4unlock_appe 

d4delete 

d4num_fields 

d4unlock_file 

d4deleted 

d4open 

d4unlock_inde 

d4eof 

d4pack 

d4unlock_reco 

d4field_number 

d4position 

d4update_heai 

d4flush all 

s iti o ns et 

d4write 

d4tlush record^l 


d4zap 


Field Functions 


Multi-user 

DOS, Unix, OS/2 Support 
C++ Interface Included 


CUSTOMER 


Database : 


Field to View: 


O void fdassig 


O void f4blanFn 
O int f4char() 

O int f4decimals() 
O double f4double[) 
O int f4int(J 
o unsigned f4len(] 
O long f4long() 



Complete DBMS for C, C++ and VB 
programmers - compatible with the data, 
index and memo files of dBASE III/IV, 
FoxPro 2 and Clipper. Try the super-fast, 
super-small FoxPro 2.0 CDX index files! 


• Windows 3 Data Entry 

• Clipper -> C Translator Available 



(Using Visual Basic? Try CodeBasic!) 


4 

Oi 




The C Library for DataBase Management 


SEQUITER I 

SOFTWARE INC. I 


TEL. 403*437*241 0 

FAX 403*436*2999 

Europe 33.20.24.20.14 


#209,9644- 54 AVE., EDMONTON, AB. CANADA T6E-5V1 
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Get Inside WINDOWS! 
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Microsoft 

WINDOWS 

\fcraon TOCcmpatihk; Product 



Debug Windows at the systems level! 


Soft-ICE/W takes you inside Windows! Debug and explore with power 
and flexibility not found in any other Windows debugger! Soft-ICE/W 
allows you to debug at the systems or applications level or simply learn 
the inner workings of Windows. 

• Debug VxD’s, drivers and interrupt routines at source level 

• Debug interactions between DOS T&SR's and Windows Apps 

• Debug programs in DOS boxes 

• Display valuable system information 

(from the total memory occupied by a Windows application, to the 
complex internal structures of Windows) 

Soft-ICE/W uses the 386/486 architecture to provide break point 
capabilities that normally require external hardware. Nu-Mega, which 
pioneered this technology with the introduction of its award winning 
Soft/ICE for DOS, now gives Windows programmers the same debug¬ 
ging power... and still at a software price. 

Own the debugger that combines the best "view" of Windows internals 
with the most powerful break points of any software debugger. 

Soft-ICE/W . . . Only $ 386 


"While you may choose to keep your own favorite 
debugger for simple work, Soft-ICE/W will soon become 
mandatory equipment 
for serious windows debugging." 

PC Magazine, June 1992 


Undocumented Windows 
FREE! 

- Learn Windows Inside & Out - 

For a limited time get a great book, 
Undocumented Windows , a $39.95 
value FREE with your Soft-ICE/W order 
(or $39,95 separately while supplies last), 


The ideal companion for 
your Soft-ICE/W 
Windows debugger! 


Undocumented 

Windows 
places, at 
programmer's 
fingertips, all the 
information 
needed to use the 
more than 200 
reserved Windows 
functions that 



by Andrew Schulman 
David Maxey 
Matt Pietrek 


Microsoft has left undocumented. 


Call (603) 889-2386 
fax (603) 889-1135 
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Ur 

M 

tea 

RISK = NULL 

30 DAY 

MONEY-BACK GUARANTEE 

P.O. Box 7780 

Nashua, NH 03060-7780 U.S.A. 

^TECHNOLOGIES INC 

24 HOUR BBS 
603-595-0386 


MICROSOFT WINDOWS ISA REGISTERED TRADEMARK OF MICROSOFT CORP. Soft-ICEAV IS A TRADEMARK OF NU-MEQA TEC 
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